Perl code by skeletonkey - 7 lines

Link:

skeletonkey - Perl, pasted on Feb 18:

my %m = (
    one => 1,
    two => 2,
    three => 3,
);
print "$_: $m{$_}\n" for keys %m;

Output:

1
2
3

three: 3
one: 1
two: 2