my $foo =      (1,1,1,1,1);
my $bar = () = (1,1,1,1,1);
print "foo = $foo, bar = $bar\n";
__END__
foo = 1, bar = 5