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

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

Produces:

 Platform =$VAR1 = '12000';

 abcdname =$VAR1 = 'slhrno1';
[download]

All I can do is guess, because I've only seen a snippet of your code, but I think $self->result is doing something it shouldn't. Don't forget that Carp and similar "lie" about where an error has occurred, reporting an error in a module as if it were an error in the call.