my %FHList;  # Holds file handles we've opened so far
sub get_file_handle {
    my $key = shift;
    if (!exists $FHList{$key}) {
        open $FHList{$key}, '>', "output_$key.txt" or die $!;
    }
    return $FHList{$key};
}