map     { [ $_, /.+,/ ] }

##</code><code>##

map     { my @fields = split /,/; [ $_, $field[1] ] }