use strict;
use warnings;
use 5.016;

sub test2 {
	my $var = 2;
    my $i;
    given ($var){
        when(1) { $i = "One"; }
        when(2) { $i = "Two"; }
        when(3) { $i = "Three"; }
        default { $i = "Other"; }
    }	
	print "$var is $i";
}

test2();