use strict;
my %var;
$var{1} = 7;
$var{2} = 3;
foreach my $number(1..2) {
	print $var{$number}."\n";
}