#!/usr/bin/perl 
use strict;

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