foreach my $file ($ftp->ls('-la')) { 
    my ($size, $filename) = (split ' ', $file)[4,-1]; 
    next if $filename     =~ /^\./; 
    $files{$filename}     = $size; 
}