my $current = <$handle>;
while (my $next = <$handle>){
    # your loop here

    $current = $next;
}