It works ok if run it in single line. But when i put it in script it does not. Anyway i'm using below code to do the same and it's working ok. Basically i'm searching for newest specific file name in sub-folders that starts with "K"

 
opendir my $dh, $source_directory or die "error: open '$source_directo
+ry'";
my @paths = grep { /^K/} readdir $dh;
closedir $dh;
$p=0;
foreach (@paths){
opendir SUB_DIR,"$source_directory$paths[$p]";
     while(our $file = readdir(SUB_DIR)) {
        if(($file =~ /$ID/) && ($file =~ /xls$/)){ 
        @files = $file;
        @FilePath = "$source_directory$paths[$p]";
        }
     }
$p++;     
}


print "\nFile = $FilePath[0]\\$files[0]\n";
[download]