#!/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";
}