use strict;
use warnings;
use Data::Dumper;

##</code><code>##

print Dumper \%ipkey;

##</code><code>##

%ipkey = @rawdata;