Data::Dumper + do for simple data storage

dumper_do.pl

use Data::Dumper;

sub write_data {
  my ($file, $data) = @_;
  open my $fh, '>', $file or die "Couldn't open $file: $!";
  print $fh Dumper $data;
}

sub read_data {
  my ($file) = @_;
  my $data = do $file;
  die $@ if $@;
  return $data;
}