perl -le '%* = (foo => bar); print $*{foo}; @* = qw(foo bar baz); print $*[1]'