in reply to Re^2: delete a line from a file
in thread delete a line from a file

So you get the first four characters from your record substr and check if it is in the list, one way to do this would be
map {$valid = 1 if $store eq $_;}@store;)
I'm sure there is a better idiom, but I can't think of it @ the moment

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."