print "Please enter the file name:\n";
my $user_data = <>;
open my $FH, '<', $user_data;
while (my $last_name = <$FH>) {
    chomp $last_name;
    my $STH = $DBH->prepare("select * from people where last_name=?");
    $STH->execute($last_name);
}