use strict;
use warnings;

##</code><code>##

$ perl -wlE 'my %h = (a0 => [1,2,3,4], a1 => [5,6,7,8]); print qq{A $_\nVal3 $h{"a" . $_}[2]} for (0,1)'
A 0
Val3 3
A 1
Val3 7

##</code><code>##

#!/usr/bin/env perl -l

use strict;
use warnings;

my %hash = (
    array0 => [1, 2, 3, 4],
    array1 => [5, 6, 7, 8]
);

for my $i (0, 1) {
    print "ARRAY $i";
    print 'Value3 ', $hash{'array' . $i}[2];
}

##</code><code>##

ARRAY 0
Value3 3
ARRAY 1
Value3 7