use Data::Dumper;
sub fudge { print scalar Dumper( \@_ ); }
my @bar = ( 6,6,6 );
fudge(1);
fudge(@bar, 1 );
__END__
$VAR1 = [
          1
        ];
$VAR1 = [
          6,
          6,
          6,
          1
        ];