while (1) {
   # during the first iteration, no variables have been
   # declared yet.
   # However, if we're in the 2nd, 3rd, etc loop..
   # that 3ish KB of memory allocated for $variable
   # still belong to Perl, and are most likely not yet
   # free()'ed

   sleep 10;

   # Create roughly 3 KB
   { my $variable = 'foo' x 1024; }
}