sub num{ $k=shift;for(@_){chomp;$n=lc;$n=~y/abcdefghijklmnopqrstuvwxyz/22233344455566677778889999/;push@{$h{$n}},$_;$h{$k} }