use warnings;
use strict;
use Data::Diver qw(Dive);

my $res1 = {
        'report' => [
                     '2011-01-25 10:30:50',
                     {
                       'AntiVir' => 'Eicar-Test-Signature'
                     }
                    ]
        };

print Dive( $res1, qw( report 0 ) ), "\n";
print Dive( $res1, qw( report 1 AntiVir ) ), "\n";

__END__

2011-01-25 10:30:50
Eicar-Test-Signature