Select Code to Download

my $second

  my $line = $_

while(<>) {
  my $line = $_;
...
  $joined = "@list";  # joins with space by default (see $" )
  $hash{$first} = $joined;
}