#! perl -slw
use strict;

sub a{
	my( @args ) = @_;
	goto MAIN unless @args;
	a( @args[ 100 .. $#args ] );
	return 1;
}


printf 'Check ram'; <STDIN>;

a( 1 .. 10000 );
MAIN:
printf 'Check ram'; <STDIN>;

my @a = ( 1 .. 50000 );
printf 'Check ram'; <STDIN>;