#!perl

use strict;
use warnings;

my %hash = (
   one => 1,
   two => 2,
);

print "$_ => $hash{$_}\n" for keys %hash;