Select Code to Download

my @items = map {$licensehash{$_->[0]}{$_->[1]}} sort {$a->[2] cmp $b-
+>[2]}
    map {
...
    } keys %licensehash;

print "$_->[3]: $_->[0]\n" for @items;

Chassis Serial: 
Creation Date: 
...
Sync Replication: 
iSCSI: 
iTX Version: