You don't need to use MD5 just to compare two strings. :-) I would have written it like this:

sub hcmp {
  use Data::Dumper;
  return(Dumper(shift) eq Dumper(shift));
}
[download]

-- MrNobo1024

s]]HrLfbfe|EbBibmv]e|s}w}ciZx^RYhL}e^print