#!/usr/bin/perl -w

use strict;

my $data_file = qq{team32.txt};

open(DF, $data_file) 
  or die(qq{Can't open $data_file for input: $!\n});
while (<DF>) {
    next if ($. < 11);
    chomp;
    print $_, qq{\n};
    my @line_parts = split(/\s+/);
    # do something with the parts here, if desired....
}
close(DF);