my ($num1,$num2) = (3, 24);
print "$num1$num2\n";