for my $day_week( qw(Mon Tue Wed Thu Fri Sat Sun) ) {
    my $regexp = "^$day_week"; 

    eval 'for my $day (qw (Mon Mon Wed Fri Sat Sun Fri Wed Tue Wed) ) {               
              if($day =~ m/$regexp/o) { # do somthing }           
           }';    
}