...
my @sample=qw(a b c);
trial(\@sample);
sub trial
{
   my ($sample) = @_;
   print join("\t",@$sample);
}