#!perl -w

use strict;

my %person = map {
    m!^(.*)$!;
    defined($1) and length($1) ? ($1 => 1) : ()
} <DATA>;

__DATA__
Ruth
Samuel
Paul
John
Silas