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