#!/usr/bin/env perl

use strict;
use warnings;

my $foo =
{
    print "hi!\n";
    my $bar = 7;
    my $baz = 8;
};

print "So, \$foo = $foo\n";