use constant DAY_OF_MONTH => 3;

my $day = (localtime)[DAY_OF_MONTH];

print "Day is @{ [ ( localtime )[DAY_OF_MONTH] ] }\n";