use strict;
use warnings;

sub test1 {
	my $var1 = 2;
	my $b;
	if ($var1 == 1) {
		$b = "One";
	} elsif ($var1 == 2) {
		$b = "Two";
	} elsif ($var1 == 3) {
		$b = "Three";
	}
	print "$var1 is $b";
}

test1();