while ( $. < 5 ) {
	my $line = <DATA>;
	print "$. -> $line";
}
__DATA__
one
two
three
four
five
six
seven