opendir (LOWEST, "<$input_directory_lowest") or die "Error opening directory: $!"; foreach (sort grep(/^Flat_file.*\.txt$/,readdir(LOWEST))) { push @lowest_priority,$_; } closedir LOWEST;