use Storable;
my $file="game.save";

{
  my $xp   = 1;
  my $name = "test";
  my $foo  = 123;
  my @bar  = qw(foo bar bam);
  my %bam  = ( a => 1, b => 2, c => 3 );
  store([$xp,$name,$foo,\@bar,\%bam],$file);
}

{
  my($xp,$name,$foo,$bar_ref,$bam_ref)=@{retrieve($file)};
  my @bar = @$bar_ref;
  my %bam = %$bam_ref;
  print "($xp,$name,$foo,@bar,%bam)\n";
}

use Storable;
my $file="game.save";

{
  my $xp   = 1;
  my $name = "test";
  my $foo  = 123;
  my @bar  = qw(foo bar bam);
  my %bam  = ( a => 1, b => 2, c => 3 );
  store({
    xp   => $xp,
    name => $name,
    foo  => $foo,
    bar  => \@bar,
  },$file);
}

{
  my $hashref=retrieve($file);
  my $xp   = $hashref->{xp};
  my $name = $hashref->{name};
  my $foo  = $hashref->{foo};
  my @bar  = @{$hashref->{bar}};
  my %bam  = %{$hashref->{bam}};

  print "($xp,$name,$foo,@bar,%bam)\n";
}