Just real quick I notice this...

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

The file is being read into $_ and you are then setting $_ = $Profile which I don't see defined or set any where. You then split $Profile which as far as I can tell is empty.

As always "use strict;" Later, Sifmole