#!/usr/bin/perl
use Modern::Perl;
# 946284

my $ref = 7;

for (1 .. 8 ) {
    if ($ref == $_) {
        say "\$ref: $ref";   # adjust output to id source of match?
    } else {
        say "Tain't workin'";
    }
}