sub fn {
    my ($fn_x, $fn_y) = @_;
    ($$fn_x, $$fn_y) = ('x', 'y');

    my $rc = 0;
    $rc = 1 if $$fn_x ne 'x';
    return 0;
}