Is there any reason for the args to be created as a reference to a hash? If you just want to get at your arguments by name, it should just use a hash. There's no reason to use a reference. In this case, tadman's second option would be correct but that requires more changes to your code to remove the '->' dereference on all argument accesses.

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';
[download]