sub Foo () {
    
}
time ? @a = () : $a = Foo;