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";
}