#!/usr/bin/perl 
use strict;
use warnings;

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