while (<IN>) {
    $_ = $Profile;
    ($Key, $Value) = split(/\r/, $Profile, 2);
    %Array = ("$Key" => "$Value");
}