if (1) { 
    use Data::Dumper; 
    local($| = 1); 
    print Data::Dumper->Dump([\$var1, \@var2, \%var3], 
      [qw(*variable1 *variable2 *variable3)]), "\n"; 
}