while (<FILE>) {
    if (/^Number1/) {
        # header
    }
    else {
        # non-header
    }
}

##</code><code>##

open ...
my $header_line = <FILE>;
while (<FILE>) {
    # data line
}