my $var1 = 5;
print $var1;