#!/usr/bin/perl
use strict;

my @array = ({key1=>1, key2=>2, key3=>3}, {key1=>1, key2=>2, key3=>3}, {key1=>1, key2=>2, key3=>3} );
my $amount = scalar(@array);

if (!$array[0 ..  $amount]->{key1}) {
    print "no\n"
}