Try:
print(my $foo = ('a', 'b', 'c'), "\n");
vs:
my @foo = ('a', 'b', 'c'); my $bar = @foo; print $bar, "\n";
I like using letters vs numbers to avoid confusion...