#! perl -slw
use strict;

my @array = (1 .. 100);

print scalar @array;

for my $i (0 .. $#array) {
	$array[$i] = undef if $array[$i] % 10 == 0;
}

print scalar @array;

@array = grep{ $_ } @array;

print scalar @array;

##</code><code>##

#! perl -slw
use strict;

my @array = (1 .. 100);

print scalar @array;
my @toDelete;
for my $i (reverse 0 .. $#array) {
	splice(@array, $i, 1) if $array[$i] % 10 == 0;
}

print scalar @array;