$a = 'a b c d' ;
$b = 'rstu' ;

for ($a) {
   s/a/substr($b,0,1)/ ;
   s/b/substr($b,1,1)/ ;
   .....
}