opendir($dir) 
  || die "Can't open $die: $!\n";

my @files = grep { /^list/ } readdir;

# The files you want are now in @files