...
my $in_data_section = 0;
while (<FILE>){
    chomp;
    if ($in_data_section) {
        my @numbers = split;
        #...
    }
    $in_data_section = 1 if m/^Number/;
}