#!/usr/bin/perl -w
use strict;
print "Please enter your name: ";
chomp(my $name = <STDIN>);
my @greeting = ("night", "morning", "afternoon", "evening");
my @days = qw/Sunday Monday Tuesday Wednesday Thursday Friday Saturday/;
my @months = qw/January February March April May June July August September October November December/;

my @currentTime = localtime();
print "\nGood " . $greeting[int($currentTime[2]/6)] . ", $name";
...