@a2 = map chr(hex()), @a1;
# or
@a2 = map chr(hex($_)), @a1;