my $dum=$1; my $val; if ($dum) { $val = $value * $dum }else{ $val=$value} $val