#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $hash = { base => { key => 'value', key2 => 'value2'}};

print Dumper $hash;

my @output = grep $hash, 'value2';

print "@output\n";

##</code><code>##

rasto@sauron:~$ ./test.pl 
$VAR1 = {
          'base' => {
                      'key2' => 'value2',
                      'key' => 'value'
                    }
        };
value2