Select Code to Download

my ($one, $two, $three) = qw(1 2 3);   # works with warnings and stric
+tures

#!/usr/bin/perl -w
use strict;
...

print "wow\n" if $hash{foo}{bar};
print $_, $/ for keys %hash;