my %coins = Dumper($call);

##</code><code>##

my $call = $coder->decode($xml_string);
my %coins = Dumper($call);

print $coins{'originHostName'};