Select Code to Download

$val=~s/\s+/:/g;

push @{ $hash{$key} }, $v;

  ... output for each $key ....
  join $sep,@{ $hash{$key} }