#!/usr/bin/perl

use strict;
use warnings;

our $VERSION = '3.14';

my $a = 1;
LABEL:
while (my $a = <FOO>) {  ## no critic (ProhibitReusedNames)
}
