use strict;
my @rows;
$rows[1] = 10;
my $val = 1;
my $row = $rows[$val];
print("$row\n");