use autodie;
my %handles;

for (1996..2011) }
    open $handles{$_}, '<', "$_.sec";
}

...
print { $handles{$year} } $yourdata;