%day2t = qw(
    Friday T  Saturday T-1  Sunday T-2  Monday T-3
    Tuesday T-4  Wednesday T-5  Thursday T-6
);

$tday = $day2t {"$day"};