Help for this page

Select Code to Download

Select or download this

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