use strict;
use diagnostics;

my $line = (<DATA>);
print "line ouside loop = $line";

foreach $line (<DATA>) {

	print "line from foreach = $line";

	$line = (<DATA>) or print "error reading filehandle\n";
	$line ||= "null\n";
	print "line inside loop = $line";

}

__DATA__
1
2
3
4
5