my( $state, $zip ) = @{
    $user->GetAccount()->GetPriorOrder()->GetShippingAddress()
}{ 'state', 'zip' };

##</code><code>##

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