#! perl

use strict;
use warnings;

my %VAR1 = (
            '13-3:USNJN4SOIMT_N3_N' => '16',
            '15-73:USNJN4SOIMT_N3_N' => '34',
            '13-84:USNJN4SOGLONAPUS_N' => '34',
		);

foreach my $key (keys(%VAR1))
{
	print "Key '$key' has value '${VAR1{$key}}'\n";
}

##</code><code>##

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'