use strict;
my %rows;
$rows{1} = 10;
my $val = 1;
my $row = $rows{$val};
print("$row\n");