#! perl -nl

push @{ $h{ $_ } }, $ARGV

}{

print qq[$_ id in @{$h{ $_ }}] for keys %h;