平日だけを要素にした配列を作って、その日が何番目の
要素かを調べて、(qw(A B C D))[$n % 4] でいいと思う。