А знаете ли вы, что reverse изменяет свой агрумент?<br>В этом легко убедиться с помощью JSON или Devel::Peek :<br><br>perl -MJSON -e'my %a=(int => 222); print to_json \%a; my %b=reverse %a; print to_json \%a;'<br>
{"int":222}{"int":"222"}<br><br>perl -MDevel::Peek -e'my %a=(int => 222); Dump $a{int}; my %b=reverse %a; Dump $a{int};'<br>SV = IV(0x1036d40) at 0x1036d48<br>  REFCNT = 1<br>  FLAGS = (IOK,pIOK)<br>
  IV = 222<br>SV = PVIV(0x1051220) at 0x1036d48<br>  REFCNT = 1<br>  FLAGS = (IOK,POK,pIOK,pPOK)<br>  IV = 222<br>  PV = 0x1056220 "222"\0<br>  CUR = 3<br>  LEN = 8<br><br>