use v5.12;
use warnings;
use Data::Dump qw/pp dd/;

my $input = join "|", qw/Monday Saturday Thursday/;
my @order = qw/monday tuesday wednesday thursday friday saturday sunday/;


pp grep { /^($input)$/i } @order;