my (undef, $a) = split ...