sub InvoiceCalculator::calculate {
        my $O = shift;
        
        my $data = $O->{'data'};
        
        for my $k (sort keys %$data) {
            printf ("%s -> %s\n", $k, $data->{ $k });
        }
        return;
    }