@_{@telephones}=(),print+join$/,sort{ $a <=> $b }keys%_;