Select Code to Download

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

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