my $var1;
my $var2;
$var1 = "Something";
print $var1 . $var2;