#!/c/opt/perl64/bin/perl
BEGIN {(*STDERR = *STDOUT) || die;}
use diagnostics;
use warnings;
use strict;
$| = 1;

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";

__END__

##</code><code>##

5 7 8
first set of dashes------------

above first set of dashes #:  [1
second set of dashes------------

y dashes------------

y: [1]

$