Select Code to Download

use strict;
use warnings;

$ 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

#!/usr/bin/env perl -l

...
    print "ARRAY $i";
    print 'Value3 ', $hash{'array' . $i}[2];
}

ARRAY 0
Value3 3
ARRAY 1
Value3 7