use feature qw(say switch);

my $data = 1;
given($data) {
    when (1) { say 'one'; goto two;  }
    when (2) { two: say 'two' ;      }
    default  { say 'something else'; }
}