Select Code to Download

#!/usr/bin/perl 
use strict;                     # Great start!
...
   print join("\t",@$sample);   # Try to dereference a scalar variable
+ named
                                # 'sample', which you never declared.
}

#!/usr/bin/perl 
use strict;
...
   my ($aref) = @_;
   print join "\t", @{ $aref };
}