for (my $i = @array; $i--;) {
    splice @array, $i, 1 if $array[$i] eq 'hello';
}