for ( grep $_, $shop->ShopperDueDate ) { say $_->day_name() }