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