my( $ref ) = @_;
my %revmod;
if( ref $ref ){
  %revmod = %$ref;
}
...