#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my ($x,$y) = sub () {
    {foo => 1},
    {bar => 2, baz => 3};
}->();

print Dumper $x, $y;

__END__

##</code><code>##

$VAR1 = {
          'foo' => 1
        };
$VAR2 = {
          'bar' => 2,
          'baz' => 3
        };