What do you mean by "can't get it to work"? What do you understand by the error message that running the script gives? Hint: 'Global symbol "x" requires explicit package name' generally translates as '"x" is undefined'.

Oh, another hint: \%HoA is a reference to %HoA.