Select Code to Download

@c = map { +{%{$a[$_]}, %{$b[$_]}} } 0 .. @a - 1;

#!/usr/bin/perl

...
Dump(\@c_ambrus, \@c_diotalevi)->Names(q"@c_ambrus", q"@c_diotalevi")-
+>Out;

__END__

@c_ambrus = (
              {
...
                   otherdata => 'bstuff'
                 }
               );