{   my @store;

    sub put {
    @store =  @_;}

    sub get {
    return wantarray ? @store : $store[0];    }}