Select Code to Download

use strict;
use warnings;
...
--output:--
10
5

sub my_use {
    my $href = shift;
...
3
2
1

my_use({STRAIGHT_LINE_ID => 1, PRORATED_ID => 2, CBP_CUSTOM_ID => 3});
...
3
2
1