my %handles;
my %count;
sub get_file_handle {
    my $yr = shift;
    $count{$yr}++;
    return $handles{$yr} if exists $handles{$yr};
    $handles{$yr} = IO::File ">>".$path."year$yr.txt";
}


##</code><code>##

   print get_file_handle($year) "$newline\n";


##</code><code>##

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';