sub G { our @ydata = 'Gaaaahh!'; };;
sub F{ 
    my @a = @_; 
    print qq{pre-G: (@ydata)}; 
    G(); 
    print qq{post-G: (@ydata)}; 
};;

F(1..4);;
pre-G: ()
post-G: (Gaaaahh!)