use strict; use warnings; my $verbose = 0; my ($a, $b, $c) = split /[ \n]/, <>; my $x = ($a * $b + $b * $c + $c * $a) * 2; print "x = $x\n" if ($verbose); my $y = $a * $b * $c; print "y = $y\n" if ($verbose); if ($x > $y) { print "2\n"; } else { print "3\n"; }