use strict;

{
  my @store;

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

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

my $scalar = 100;

put($scalar);

$scalar = get;

print "$scalar\n";