for my $case (@cases) { if ($case->[0]->(@data)) { $case->[1]->(@data; last; } }