Select Code to Download

for my $i ($TTYFIRST..$TTYLAST) {
  Tty_check($i,$start_ts,$end_ts,$selectedserver);
}

my %ttys;
for $line (`aml_read /l trace /h $_[3] /a commproc /s $_[1]  /b $_[2] 
+/d all`) {
...
for my $tty (sort { $a <=> $b} keys %ttys) {
 print "Count for $tty: $ttys{$_}\n";
}