no strict; # 1
# 2
# 3
# 4
sub foo { }             # 5
@bar = \&foo;           # 6
$baz = "a string";      # 7
%this = qw/une deux/;   # 8
# 9
# 10