print"$path_name\n"x grep/test$/,@names;

say$path_name x grep/test$/,@names;