my %hash = ('foo', 1, 'bar', 2);
my @args = ( foo => bar => baz );

use Data::Dumper;
print Data::Dumper->Dump([ \%hash, \@args ], [ hash => 'args' ]);