my $samesign, $first, $second;
if (($first * $second) > 0) {
    $samesign = 'true';
}
elsif (($first * $second) < 0) { {
    $samesign = 'false';
}
else {
    $samesign = undef;
}