Select Code to Download

use warnings;
use strict;

...

__DATA__
...paste the JSON string here

vendor: Some Business
        rack num: 3127824
...
        rack num: 3128353
        rack num: 3128796
        rack num: 3128797

use warnings;
use strict;
...
        print "\track num: $item->{RackNumber}\n";
    }
}