use strict;
use warnings;

##</code><code>##

#!/usr/local/bin/perl
use strict;
use warnings;
print "What is your name?\n";
chomp(my $name = <STDIN>);
if ($name eq 'larry') {
    print "You're Larry!\n"
}
elsif ($name eq 'moe') {
    print "You're Moe!\n"
}
elsif ($name eq 'curly') {
    print "You're Curly!\n"
}

##</code><code>##

#!/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";
                }