my @array = qw( kerstin peter paul kirsten );
@array = grep { !/paul/ } @array;
print "@array\n";