if (@$array[$_] == $number) {
    @$array[$_] = 0; 
    @array = (sort {$a <=> $b} (@$array));
    shift;
}