$ie->getAgent();

my %hash = %{$ie->getAgent()};
foreach my $key (keys %hash) {
    printf "at %s we have %s\n", $key, $hash{$key};
}