my @listfiles=`ls -l ./`;
foreach(@listfiles) {
        chomp;
        $_=~s/ /\t/g;
        my @details = split(/\t/, $_);
        print "$details[-1]: $details[0]\n";
}