Select Code to Download

use Data::Dumper;
print Dumper \%samples;

# these 2 lines
my $sample;
...

# are usually better written as
foreach my $sample (@samples) {