my $prevline = '';
...
    print $. - 1, ": $prevline";