Select Code to Download

 
if ( exists ( $hash{$login} ) ) {
  $hash{$login} .= $delimiter . $_;
...
else {
  $hash{$login} = $_;
}

foreach my $key (keys %hash) {
  print "$key : $hash{$key};
}