foreach $file (@array) {
    if ($file =~ /^KL\d{1|2}_/) {
        push (@files, $file);
        print "$file\n";
    }
}

##</code><code>##

foreach $file (@array) {
    if ($file =~ /^KL\d+_/) {
        push (@files, $file);
        print "$file\n";
    }
}