shift (sort ( @array ) );

##</code><code>##

@array = sort @array;
shift @array;

##</code><code>##

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