for (glob "$var1/$var2/$var3/*.ksh") {
    print "$_\n";
}