##
my $res =
$cmd eq "add" ? $x + $y :
$cmd eq "sub" ? $x - $y :
$cmd eq "mul" ? $x * $y :
$cmd eq "div" ? $x / $y :
undef;
##
##
my $res;
if ($cmd eq "add") { $res = $x + $y }
elsif($cmd eq "sub") { $res = $x - $y }
elsif($cmd eq "mul") { $res = $x * $y }
elsif($cmd eq "div") { $res = $x / $y }
else { $res = undef }