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]);
  }
}