$DIR = "/home/rajesh";

@dirlist = `ls -l $DIR | tr -s " " " "| cut -d " " -f5,9`;
         foreach (@dirlist)
        {
                print "$_ \n";
        }