my ( $first ) = split( /,/, $_, 2 );