#!/usr/bin/perl -w

use strict;

my %hash;
$hash{"key1"} = "value1";
$hash{"key2"} = "value2";
$hash{"key3"} = "value3";

#  (1)  this works...
my %inverse_hash;
%inverse_hash = reverse(%hash);
print keys (%inverse_hash);

#  (2)  this does not
print keys (reverse (%hash));