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 @files = $f->ls;

foreach (@files) {
my $file = $_;
print "My file is $file \n";
}

##</code><code>##

my @files = map { $_->[0] } 
            sort { $a->[1] cmp $b->[1] ||  $a->[2] <=> $b->[2] } 
            map { [ $_, /\.(\d{12}\-\d{4})/, /.+?-(\d+)\..+$/ ] } <DAT
+A>;

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