my ( $a, @ss ) = split ...