use POSIX;print map{strftime+("%A 
")x7,$_}1..7