my $previous = undef;
while (my $line = <$filehandle>) {
    chomp $line;
    ...; # process $line
    $previous = $line;
}