last unless @packets; my $line = shift @packets;