sub dmp (\[$@%];\[$@%]\[$@%]\[$@%]\[$@%]\[$@%]\[$@%]\[$@%]\[$@%]\[$@%]){
  # die "to many arguments for dmp()" if @_>10;
  use PadWalker qw/var_name/;
  for $struc (@_){
    local $,="\n";
    my $name=var_name(1, $struc);
    $name=~s/^[\@\$\%]/\*/;
    print Data::Dumper->Dump([$struc],[$name]);
  }
}

##</code><code>##

@fontspec = (
              {
                'id' => '0',
                'family' => 'Helvetica',
                'size' => '10'
              },
              {
# ... and so on