my @array = (1, 2, 3, 4, 5, 6);
my $string = "ababbabaaba";
$string =~ s/a/shift(@array)/ge;

print $string; # prints "1b2bb3b45b6"