foreach my $record (values %$HoH) {
     $record->{label} =~ tr/A-Za-z/N-ZA-Mn-za-m/;
  }