$ 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