%ttys = ();

open(WHO,"who|") or die "can't open who: $!";
while (<WHO>) {
  ($user, $tty) = split;
  push( @{$ttys{$user}}, $tty);
}

foreach $user (sort keys %ttys) {
 print "$user: @{$ttys{$user}}\n";
}