Select Code to Download

#!/usr/bin/env perl -l

...
    print "Sort value: $_->[2]; Tag key: $_->[0]; Type key: $_->[1]";
    dd $licensehash{$_->[0]}{$_->[1]};
}

Sort value: Chassis Serial; Tag key: CI; Type key: CI_CID
["", "", "", "Chassis Serial", 1, "[^0-9a-zA-Z]", []]
...
Sort value: iTX Version; Tag key: COM; Type key: COM_PV
["", "", undef, "iTX Version", 1, "[^0-9.]", []]