my $newhashref = {};

sub rechash { 
 my $href = shift; 

 foreach (keys %$href){
   &rechash($href->{$_}) if ( ref($href->{$_}) && ref($href->{$_}) eq 'HASH');
   $newhashref->{$_} = $href->{$_};  #update added '->' dereferencing.
 }  

return $newhashref;
}

my $ref_to_onelevelhash = rechash $ref_to_multilevelhash;