Select Code to Download

#!/usr/bin/perl

...
  }

use Data::Dump 'dd'; dd 'after block', \@data;

(
  "before block",
...
    { unit => "Q", value => 70 },
  ],
)