Select Code to Download

%ttys = ();

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