#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

my $name_file = 'names.txt';

open my $name_file_fh, '<', $name_file;
my %name = map { chomp; $_ => 1 } <$name_file_fh>;
close $name_file_fh;

print 'Enter login name: ';
chomp(my $input = <STDIN>);

print "Invalid!\n" unless exists $name{$input};