use strict;
my %hash;
my $foo='xxx';
my $bar='yyy';

$hash{$foo}='foo-value';
$hash{$bar}='bar-value';

my($k,$v);
while(($k,$v)=each %hash) {
   print("$k => $v\n");
   }