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

##</code><code>##

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

my %hash;

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