my @list2 = ( {a => 'm'}, { 1 => 55}, { Foo => 'Bar' });
my $h = sub { UNIVERSAL::isa(shift, 'HASH') };

print join ',', map_recursive (\@list2, $h);