#!/usr/bin/perl
use strict;
use warnings;

{
  $_ = <DATA>;
  my $next_line;

  while( $next_line = <DATA> )
  {
    print "current line: $_ -- next line: $next_line$/";
  }
  continue
  {
    $_ = $next_line;
  }
}
__DATA__
1
2
3
4
5