10
11
12
13

##</code><code>##

@a = 1..3;
@b = qw/2 4 7 9/;
for (@b) {$a[1] = $_; say; }