Select Code to Download

use Modern::Perl;
use Data::Dump qw/dump/;

...
set height "house" "10 yards"
set height "table" "80 cm"
set height "table" "30 inch"

(
  "house",
      [undef, "5 meter", "10 yards"],
  "table",
      ["80 cm", "30 inch"],
)