my $VAR1 = { 'Platform' => '12000', 'AbcdName' => 'slhrno1', 'DedicatedOption' => '-1', 'ShortName' => 'BRYN1', 'AFlag' => 'N', 'AbcdId' => '47358', 'Vendor' => 'MICROSOFT', 'Type' => '21', 'AliasName' => 'stlt', 'ExportVersion' => 'US' } ;

print "\n Platform ="; print Dumper ($VAR1->{Platform});
print "\n abcdname ="; print Dumper ($VAR1->{AbcdName});