%hash2= map { ($_,$hash{$_}) }
          grep {/a/}
            keys %hash ;