@lines = <FILE>;        # copy 1
$all = join("",@lines); # copy 2
for (@lines) {
    ($key,$val) = split " ", $_, 2;
    $hash{$key} = $val;   # copy 3
}