Select Code to Download

while (<DATA>) {
   my ($key, $value) = /(\S+) (.*)/ or next;    # or:
...
   $hash{$key} = $value;                        # or:
   push(@{$hash{$key}}, $value);
}