use Data::Dumper;
print Data::Dumper->Dump( [{a => 1, b =>2}], [qw($balloon)] );
__END__
$balloon = {
             'a' => 1,
             'b' => 2
           };