my %handles;

open $handles{ $_ }, '>', "sec.$_" for 1996 .. 2010;

while( <> ) {
    m[^(\d{4})] and print { $handles{ $1 } } $_;
}

close for @handles;