sub change_hash
{
   my $hashref = shift;
   my $returnflag = 0;
   foreach my $key ( keys %$hashref ) {
      if ( change_needed( $key, $$hashref{ $key } ) ) {
          $returnflag = 1;
          # do change here
      }
   }
   return $returnflag;
}