#extended usage with names
 print Data::Dumper->Dump([$foo, $bar], [qw(foo *ary)]); 

##</code><code>##

use Data::Dumper::Lazy;
@a = 1..5; 
dmp {@a};