my $names_file = "code.txt";

open(NAMES, $names_file || die "Could not open file!");