map { chomp(my $key = (split /[,.]/, $_)[$idx]);
          [ $_, $key ] } @array;