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

my $n = $_ foreach (1 .. 2);
warn "\$n = $n";

my $m = 1 if (1);
warn "\$m = $m";