This will work if
    ( $array[$.-1], $arraynew[$.-1] ) = split;
is
    ( $array[$.-1], $arraynew[$.-1] ) = split ' ', $_, 2;
(see below).