opendir(DIR,'.') or die $!; @read=readdir(DIR); close(DIR); foreach(@read){ if($_ =~/^f\d.txt$/){ push(@read1,$_); } } @read2=sort(@read1); foreach (@read2){ open(FILE,$_) or die $!; push(@file,); close(FILE); push(@file,"LINE\n"); } $string=join('',@file); $string=~s/\n/#/g; ($val1,$val2,$val3)=split('LINE#',$string); @val1=split('#',$val1); @val2=split('#',$val2); @val3=split('#',$val3); foreach $i(0 .. scalar @val1){ print "$val1[$i]\t$val2[$i]\t$val3[$i]\n"; }