#!/usr/local/bin/perl
use strict;
use warnings;
my @names =qw(larry moe curly);
print "What is your name\n";
chomp(my $name = <STDIN>);
if(grep {/$name/} @names){
        print "you're @{[grep {/$name/} @names]}!\n";
        }else{
                print "I don't know this name\n";
                }