my $i = $caffeine_level; for ($i = 0; $i < 100; ++$i) {

The first assignment is useless, as $i's value is immediately overwritten. The loop is inefficient, as for simple loops like this, a Perlish loop is faster and easier to write: for (1..100). Yes, I changed it from 0..99 to 1..100, because 1..100 looks better and you're not using the iterator variable anyway.

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.