$ cat 668658.pl
use strict;
use warnings;
use Data::Dumper;

sub f {
  my ($first, $second, $third) = @_;
  print "first:" . Dumper($first) . "\n";
  print "second:" . Dumper($second) . "\n";
  print "third:" . Dumper($third) . "\n";
}

my @arr = qw ( one two three );

f('@arr');
f(@arr);
__END__