. . .

my %files = map { join('', 'com', $_) => 1 } (1 .. 20);

sub first
{
    if ($files{$_})
    {
        . . .