Select Code to Download

#!/usr/bin/perl 
 
 
...
print dmp_macro('@bla'),"\n"x3;
 
eval (dmp_macro qw/@bla/);

print Data::Dumper->Dump([\@bla],['*bla'])
 
...
         8,
         9
       );