my ($last, $penultimate) = reverse split " ", $line;