#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11118049
use warnings;

my $foo;

print "test: " . ($foo = 1) . ($foo = 2) . ($foo = 3), "\n";