m/test$/ && print "$path_name\n" for @names;