$| =1;
sleep(10);	# 1.5 Mb
&Test();		# 113 Mb
sleep(10);	# 108 Mb
&Test();		# 121 Mb
sleep(10);	# 108 Mb

sub Test
{
	my @l_Data;

	print "Loading\n";
	
	open(FILE,'E:\Bigfile.txt'); # Bigfile.txt is a 25 Mb File
	@l_Data = <FILE>;
	close(FILE);

	undef(@l_Data);
	print "Unloaded\n";
}