my @ar = (1..10);
undef @ar[0..5];
print "@ar\n";
# 1 2 3 4 5  7 8 9 10
@ar[0..5] = undef;
print "@ar\n";
#      7 8 9 10