while (<SFILE>) {
...

if ($line=~/^Individual) {
    my @array= split (/\s+/, $line);
    shift @array; #removes the 'Individual' string
    foreach (@array) {
      ... #process an 'Individual' line
    }
}
else {
    my @arrays= split (/\s+/, $line);
    my $year= shift @array;
    foreach (@array)
        ... #process a data line
    }
}