sub process
{
    my ($type3, $type4) = @_;
    print "Processing type 3 total of $type3 and a type 4 total of $type4\n";
    return;
}