Select Code to Download

use constant TECHNOLOGY_TYPES =>
    qw( radar laser vascar airplane photo roadblock unknown );
...
for my $tech ( TECHNOLOGY_TYPES() ) {
  $INPUT{ $tech } ||= "false";
}