for my $day_week( qw(Mon Tue Wed Thu Fri Sat Sun) ) {
    my $regexp = qr/^$day_week/;
    for my $day (qw (Mon Mon Wed Fri Sat Sun Fri Wed Tue Wed)) {
        if($day =~ m/$regexp/) { # do somthing }           
    }
}