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

my $predetermined = 6;

my @nums = qw(6 645 1086 1996 2015 2026);

for my $num (@nums){
    if ($num =~ /$predetermined$/){
        print "$num\n";
    }
}