@_{@telephones}=(),print+join$/,sort{ $a <=> $b }keys%_; [download]
In reply to Re: a way to do 'sort|uniq' by sh1tn in thread a way to do 'sort|uniq' by jch341277