my $p;

if (condition()) {
    $p = $q;
}