{
  my @store;

  sub put {
    @store = ref($_[0]) ? @{$_[0]} : $_[0];
  }

  sub get {
    return wantarray ? @store : \@store;
  }
}