Select Code to Download

# always use strict & warnings
# they give useful debugging info
...
    # if printing to the console, do this instead
    print "Key: $key \nValue: $value\n\n";
}

# direct assignment
my %ipkey = @rawdata;
...
for (keys %ipkey) {
    print " Key: $_ \n Value: $ipkey{$_} \n\n";
}