Select Code to Download

#! perl

use strict;
...
{
    print "Key '$key' has value '${VAR1{$key}}'\n";
}

Key '13-3:USNJN4SOIMT_N3_N' has value '16'
Key '13-84:USNJN4SOGLONAPUS_N' has value '34'
Key '15-73:USNJN4SOIMT_N3_N' has value '34'