Help for this page
Select Code to Download
Select
or
download this
@all = @a < $sz ? @a : @a[ $tl+1 .. $top, 0 .. $tl ];
Select
or
download this
shift @a if @a == $sz;