my $obsession = 'Perlmonks!';
my @day;
while ($obsession) {
    push @day, $obsession;
    chop $obsession;
}
print length $_, "\n" for reverse @day;