If you were to attempt to do this manually, what would be the steps?
- Read the data source into a data structure using the name as an index (see associative arrays in perldoc perldata)
- Ask for partial name chomp(my $name=<STDIN>);
- Perform a case insensitive partial match of the name against the index (see perlre)
- Iterate through the indices of the associative array printing out any that match the test above see perlsyn (foreach) and also the keys operator of associative arrays
Now all you have to do is try and write that in Perl, it'll break the first time and when you get rid of the error messages it won't do what you intended, but that's true of most of our projects,(and anyone who denies it is probably lying) to quote Greg Lemond "It doesn't get easier, you just get faster".
So put up the code you wrote and we'll try and hack it into shape, providing you with a complete solution is not helping you in the longer term.
print "Good ",qw(night morning afternoon evening)[(localtime)/6]," fellow monks."