my ($x, $y) = (12, 100); my $smaller = $x < $y ? $x : $y; print "The smaller number is $smaller.\n";
The smaller number is 12.