use strict;
use diagnostics;
my $h; # hashref
{
	#no strict; # no output until un-commented!!
	local $/;
	my $t=<DATA>;
	$h=eval $t;
}
foreach my $item ( keys %{$h} ) {
	print "$item\n";
}
exit;
__DATA__
$VAR1 = {
          'ITEM1' => {
                         'A' => {
                                     'count' => 4,
                                     'percentage' => '1',
                                     'qty' => 4
                                   }
                       },
          'ITEM2' => {
                         'A' => {
                                     'count' => 15,
                                     'percentage' => '1',
                                     'qty' => 193
                                   }
                       }
	};