use diagnostics;

test_code();
sub test_code {
    my($a, $b) = qw(foo bar);
    my $c;
    if ($a == $b) {
        $c = $a;
    }
}