C:\test>perl -E"{my@x; sub X{ push@x,'some interesting value';;\@x}}; say qq[@{X()}@{X()}]"
some interesting valuesome interesting value some interesting value