use constant TECHNOLOGY_TYPES =>
    qw( radar laser vascar airplane photo roadblock unknown );

for my $tech ( TECHNOLOGY_TYPES() ) {
  $INPUT{ $tech } ||= "false";
}