use strict;
use warnings;

sub_1();
sub_2();

sub sub_1 {
	my $hash = {};
	$hash->{$_}=1 for 1 .. 10;
}

sub sub_2 {
	my $hash = {};
	$hash->{$_}=1 for 1 .. 10000000;
}