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

##</code><code>##

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