Select Code to Download

my %property_hash = (
  emmisive => 'emmisiveColor',
...
  }
}
EOR

  $prop_string .= $key . ' ' . 
    ( @{$properties{ $key }} || @{$prop_def{ $key }} ) . "\n"

sub code {
   my %hash = %{ shift() };
   my $value = $hash{ 'expected' } || $const_def_hash{ 'expected' };
}

sub code {  # scalar, array ref, hash ref
   my $data = shift;
   my @array = @{ shift() };
   my %hash = %{ shift() };
}