#!/usr/bin/perl

use warnings;
use strict;

print "Press enter to start\n";
my $dummy = <>;

{
    my $a = [];
    my $i = 10000000;
    push @$a,$i while ($i--);
    print "Allocated first array - Press enter to let it go out of sco
+pe\n";
    $dummy = <>;


}

print "Done. Press enter to continue with new array\n";
$dummy = <>;

{
    my $a = [];
    my $i = 10000000;
    push @$a,$i while ($i--);
}

print "Done, press enter to exit\n";
$dummy = <>;
[download]

Update: as far as I know, this only works for data referenced by lexicals - there are other ways to free memory used by arrays (i.e. setting $#array)