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

if (my $foo = foo()) {
    print "No warning\n";
}

if (my @asdf = (1..5)) {
    print "No warning here either\n";
}

if (my $bar = {one => 1}) {
    print "Look Ma, no warning\n";
}

while (my $rec = <DATA>) {
    # ...
}

sub foo {
    return 42;
}