Select Code to Download

my %ttys= ();

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