while ( my $file = readdir( ORIG ))
{
    my $verb = "isn't";
    if ( -f "$path/$file" ) {
        push @filesInDir, "$path/$file";
        $verb = "is";
    }
    print "$path/$file $verb a file\n";
}