perl 釋放記憶體問題

最近一直在糾結perl裡如何釋放記憶體的問題。下面有幾個簡單的語句：

      1、 perl -e 'for $i(1..10000){$hash{$i} = 0;print "$i\t$hash{$i}\n";delete $hash{$i};}for $j(10001..20000){$hash{$j}=1;print "$j\t$hash{$j}\n"}'
      2、 perl -e 'for $i(1..10000){$hash{$i} = 0;print "$i\t$hash{$i}\n";undef $hash{$i};}for $j(10001..20000){$hash{$j}=1;print "$j\t$hash{$j}\n"}'
      3、 perl -e 'for $i(1..10000){$a[$i]=0;print "$i\t$a[$i]";delete $a[$i];}for $j(10001..20000){$a[$j]=1;print "$j\t$a[$j]\n";}'
      4、 perl -e 'for $i(1..10000){$a[$i]=0;print "$i\t$a[$i]";undef $a[$i];}for $j(10001..20000){$a[$j]=1;print "$j\t$a[$j]\n";}'

      將雜湊和數組裡面的元素刪除或初始化後，其佔用的記憶體並不會釋放。

      然後，使用了 Data::Dumper ：

      use Data::Dumper;
      %disney = ('cat'=>'Tom', 'mouse' => 'Jerry', dog=>'goofie');
      delete $disney{'cat'};
      $disney{'dog'} = '';
       print Dumper(\%disney);

      這樣可以處理將全部資料讀取後，釋放記憶體