perl -wE'use Storable;my @data=qw(a);push @data,undef;push @data, chr(0); push @data,"d";store \@data, "/tmp/store"'
perl -wE'use Storable;my $aref = retrieve "/tmp/store";use Data::Dumper;$Data::Dumper::Useqq=1;print Dumper $aref'  
$VAR1 = [
          "a",
          undef,
          "\0",
          "d"
        ];