Any particular reason why telephone numbers need to be compared as numbers and not as strings? If you need to make more transformations, just keep chewing on $key in the map statement.

    map { my $key = (split /,/, $_)[$idx];
          chomp $key;
          $key =~ s/[-+]//g;
          # and so on...
          [ $_, $key ] } @array;
[download]