#!perl -w

use strict;

my %person;

while ( chomp($_ = <DATA>) ) {
    $person{$_} = 1;
}

__DATA__
Ruth
Samuel
Paul
John
Silas