use Data::Dumper;
print Dumper(\%newhash);

##</code><code>##

$VAR1 = {
          'IP' => [
                    'value1',
                    'value2',
                    'value1',
                    'value2'
                  ]
        };