Select Code to Download

use strict;

...
foreach my $z (sort keys %result) {
  print "$z: $result{$z}\n";
}

1: both
2: log
...
5: both
7: user
9: user