$count = 0; foreach (@rawdata) { #Remove newline if ($count == 0) { $key = $_; $count++; chomp $key; print "Key: $key
"; next; } if ($count == 1) { $value = $_; $count++; chomp $value; print "Value: $value

"; } if ($count == 2) { $ipkey{'$key'} = '$value'; $count = 0; print $ipkey{$key}; } }