tie my $first, "Trueonce";
while (<DATA>) {
	print if !$first;
}