use strict;
use warnings;
use diagnostics;


sub switch {
    no warnings 'exiting';
    while (@_) {
        my ($case, $action) = splice @_,0,2;
        return $action->($case) if $_ ~~ $case;
    }
}


#no warnings 'exiting';

switch
  [1,2,3] => sub { print "bla" ; next},
  3       => sub { print "bla2" }
  for (3);