# always use strict & warnings
# they give useful debugging info
use strict;
use warnings;
# get your rawdata
my @rawdata = ...
# chomp the whole array at once
chomp @rawdata;
# declare the hash
my %ipkey;
# a 'C' style for loop is useful here
# this one loops over every second array index
for (my $i = 0; $i < @rawdata; $i += 2){
# get each pair of consecutive items from array
my $key = $rawdata[$_];
my $value = $rawdata [$_ + 1];
# then build the hash
$ipkey{$key} = $value;
# and print your results
print "Key: $key
Value: $value
";
# if printing to the console, do this instead
print "Key: $key \nValue: $value\n\n";
}