$filecount = 0;
@filesindir = `ls /home/a/*.txt`;
foreach $file (@filesindir) {
    $filecount++;
}

print "The number of text files in my directory is: $filecount\n";