my %hash;

$hash{one} = 1;
$hash{two} = 2;
$hash{three} = 3;

foreach (keys %hash) {
  print "$_ -> $hash{$_}\n";
}