my   @foo;
push @foo, 5;
push @foo, 7, 8;

printf  "@foo\n";
printf  "\nabove first set of dashes #:  [$#foo]\n";
printf  "first set of dashes------------\n";
printf  "\nsecond set of dashes------------\n";

my $y = printf  "\ny dashes------------\n";
printf "\ny: [$y]\n";