package main;

{
    my $foo;
    sub foo {
        if (@_) {
            my $new = shift;
            # validate
            return $foo = $value;
        }
        return $foo
    }
}