#! 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;