Select Code to Download

while (<$in>) {
        chomp;
        my @data = split(/\s*=\s*/);
        $hash{$data[0]} = $data[1];
};

while (<$in>) {
        chomp;
        my ($key, $value) = split(/\s*=\s*/);
        $hash{$key} = $value;
};