push @array_segment, shift @array if defined $array[0];

##</code><code>##

    push @array_segment, shift @array if @array;