do { print "hello world\n"};
my $x = do { 1 + 2};
print "$x\n"; #will print 3