Just to keep you dudes updated, in the end i went for

# snippet of my code using Net::FTP

@files = reverse (map {

    (split (/\s+/))[8]; 
    } `ls -lrt F*`);

    foreach $filename (@files[0..4]) { 

    COPY_FILES;

    }

sub COPY_FILES {

$ftp = Net::FTP->new("$remserv") || die "Could not connect : $!\n";
$ftp->login("$user","$pass");
$ftp->cwd("$dir");
$ftp->put("$filename");
$ftp->quit;

}
[download]

I wrote it myself, and now I know a bit more about the mega-useful map !