@a = ('a','b','c');
@b = ('1','2','3');

#we want ('a-1','b-2','c-3')

@a = map{$_="$_-".shift@b}@a;

print "@a";