open RESULT, ">k2oris.dat";

#baca smua file yg ada d direktori
opendir (DIR, "C:\Users\ask\TES") or die "$!";
  my @files = grep {/.*?\.txt/} readdir DIR;
  close DIR;
  foreach my $file (@files) {
  open(FILE,"path/to/$files") or die "$!";
 
#read each file
 while (<FILE>){
.
.
}
close RESULT;