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