Select Code to Download

my %hash;
@hash{qw(foo bar baz)} = 1 x 3;
print "$_ => $hash{$_}\n" for keys %hash;