Select Code to Download

my %results;
for my $tok ( split /\s+/, $input ) {
...
for my $k ( qw( a b c ) ) {
  print "$k is ", exists $results{ $k } ? $results{ $k } : 'missing', 
+"\n";
}