$i == 15 ? push @str, $_ : $j = $i += 1; #### 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 }