my @line_fields = split " ", $line;
my $penultimate = $line_fields[-2];
my $last = $line_fields[-1];

##</code><code>##

my ($penultimate, $last) = (split " ", $line)[-2, -1];