#!/usr/bin/perl
use strict;
use warnings;

print my $r = do {
  my $r;
  $r += $_ for 1..3;
  $r
}