for $t (@t) { $y{$t} = [grep /$t/, @f] }