use strict;
use Data::Dumper;

sub foo {
	my $ref = shift;
	print Dumper $ref;
}


sub bar {
	my $ref = @_;
	print Dumper $ref;
}

my @ary = qw(a b c d e f);
my $ref = [ qw(a b c d e f) ];

foo(@ary);
foo($ref);
bar(@ary);
bar($ref);