my @files=();
opendir(DIR,"/path/to/my/dir") or die "/path/to/my/dir: $!";
while(my $fname=readdir(DIR)){
      push @files,$fname if $fname =~ m@*\.ptseq$@;
}

closedir(DIR);