for (@data){
    @datafiles = $ftp->ls("*$_\.*1");
    @datafiles = reverse @datafiles;
    print "files available=\n".join ", ", @datafiles;
    print "\n";
    $currentfile = $datafiles[0];
    print "getting $currentfile\n";