Select Code to Download

my @values = map {
    ( [ $_, 0, $properties{$_}->{0}->{value} ], [ $_, 1, $properties{$
+_}->{1}->{value} ] )
  } keys %properties;