use List::Util qw( first ); if ( ! first { $_ eq 'Wert' } @records ) { push @records, 'Wert'; }