Select Code to Download

#!/usr/bin/perl -w

...
}

# note that skip_zero is no longer necessary.

        # the original code indicates there can never
        # be more than one charge code associated with
...

        # # for multiple charge codes:
        # push @{ $charge_codes{$src}{$dest} }, $code;

    # # if you know that there is no charge code 0 or
    # # empty string, you could compress that like so:
...
    # {
    #     ++$charges_against{$code};
    # }

# construct the template in a more self-documenting way.
# this is a list of name => width values.  you can add
...

    # ...
}