Test header for item toss
my $cart = [ { code => 1, mv_mi => 1, mv_si => 0, mv_ci => 0, quantity => 0, }, { code => 2, mv_mi => 1, mv_si => 1, mv_ci => 2, quantity => 1, }, { code => 3, mv_mi => 2, mv_si => 1, mv_ci => 0, quantity => 1, }, { code => 5, mv_mi => 1, mv_si => 1, mv_ci => 3, quantity => 1, }, { code => 50, mv_mi => 3, mv_si => 1, mv_ci => 0, quantity => 1, }, { code => 51, mv_mi => 3, mv_si => 1, mv_ci => 31, quantity => 1, }, { code => 52, mv_mi => 31, mv_si => 1, mv_ci => 0, quantity => 1, }, { code => 6, mv_mi => 1, mv_si => 1, mv_ci => 0, quantity => 1, }, { code => 7, mv_mi => 0, mv_si => 0, mv_ci => 0, quantity => 1, }, ];

Test footer for item toss
toss_cart($cart); use Data::Dumper; $Data::Dumper::Indent = 2; $Data::Dumper::Terse = 2; print Data::Dumper::Dumper($cart); # ENDTEST