Select Code to Download

my $f = Net::FTP->new($host) or die "Can't open $host\n";
$f->login($user, $password) or die "Can't log $user in\n";
...
my $file = $_;
print "My file is $file \n";
}

my @files = map { $_->[0] } 
            sort { $a->[1] cmp $b->[1] ||  $a->[2] <=> $b->[2] } 
...

print $_,$/ for @files; 
</p>