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