my $found_start_of_data;
while (<DATA>) {
    last if $found_start_of_data;
    # ... some complex code that sets the flag
}
while (<DATA>) {
    # ...
}