#!/usr/bin/perl
use strict;
use warnings;

my %h = ("o.misc04"  => 1,
         "o.misc05"  => 10);

my $i = \%h;

my $onip = ($$i{"o.misc04"} << 4) + $$i{"o.misc05"};

print "\$onip is: $onip\n";

$onip = ($i->{"o.misc04"} << 4) + $i->{"o.misc05"};
print "\$onip is: $onip\n";

__END__
prints:

$onip is: 26  # 1<<4 +10 = 16 + 10 = 26
$onip is: 26  # 1<<4 +10 = 16 + 10 = 26