print grep {substr($_, -length($search)) eq $search} @array;