#!/usr/bin/perl
use strict; use warnings;

my @move;
push @move,{"123" => "foo"};
push @move,{"234" => "bar"};
push @move,{"345" => "joo"};

if (grep { $_ = {'234' => 'bier'} } @move) {
        print "vorhanden\n";
} else {
        print "nicht vorhanden\n";
}

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

my @move;
push @move,{"123" => "foo"};
push @move,{"234" => "bar"};
push @move,{"345" => "joo"};

if (grep { $_ = {'234' => 'bier'} } @move) {
         print "vorhanden\n";
} else {
print "nicht vorhanden\n";
}

print Dumper \@move;

$VAR1 = [
          {
            '234' => 'bier'
          },
          {
            '234' => 'bier'
          },
          {
            '234' => 'bier'
          }
        ];

(grep { exists $_->{234} and  $_->{234} eq 'bar' } @move) {

(grep { $_->{234} and  $_->{234} eq 'bar' } @move) {