[Moscow.pm] Почему память не используется повторно?

[Denis Evdokimov]

Почему в первом случае Perl занимает 30 Mb а во втором 10Mb

#### 1 ####
sleep(5);
{
   my $aaa = '1' x (10 * 1024);
   $aaa x= 1024;
   sleep(2);
}
{
   my $aaa = '1' x (10 * 1024);
   $aaa x= 1024;
   sleep(2);
}
{
   my $aaa = '1' x (10 * 1024);
   $aaa x= 1024;
   sleep(2);
}
sleep(5);


#### 2 ####
sleep(5);
{
   my $aaa = '1' x (10 * 1024);
   $aaa x= 1024;
   sleep(2);
   undef($aaa);

}
{
   my $aaa = '1' x (10 * 1024);
   $aaa x= 1024;
   sleep(2);
   undef($aaa);
}
{
   my $aaa = '1' x (10 * 1024);
   $aaa x= 1024;
   sleep(2);
   undef($aaa);
}
sleep(5);