c:\@Work\Perl>perl -wMstrict -le
"my @Data = qw(foo bar baz);
 ;;
 print 'hoo ',        @Data, ' ha';
 print 'fee ',    0 + @Data, ' fie';
 print 'hic ', scalar @Data, ' hoc';
"
hoo foobarbaz ha
fee 3 fie
hic 3 hoc