sub empty { return; }
    @x= empty();
    print defined(@x) ? "defined" : "not", "\n";