...

my $skip = 4;

{
	open FH, "filename";
	local@_ = <FH>;
	close FH;
	@_ = split /(?:.+\n){$skip}/m, "@_";
	for( @_ ){
		# work without first four lines 
	}
}
...