Select Code to Download

push (@{%newhash->{$rows[0]}}, @newrows);
push (@{%newhash->{$rows[0]}}, @newrows);

push @{$newhash{IP}}, @newrows);
push @{$newhash{IP}}, @newrows);

push @{$newhash{IP}}, [@newrows]);
push @{$newhash{IP}}, [@newrows]);

$VAR1 = {
          'IP' => [
...
                    ]
                  ]
        };

@printrows = $newhash{$key}; # wrong -> the hash will contain a refere
+nce to an array
@printrows = @{$newhash{$key}}; # right -> de-reference the array firs
+t