@files = <*.ptseq>;
 foreach $file (@files) {...}