my $struct = ["Hi perlmonks"];
push @$struct, \substr($struct->[0], 0, 2);
my $storable = thaw freeze $struct;
my $sereal =  decode_sereal encode_sereal $struct;

pp $struct, $storable, $sereal;
${ $_->[1] } = "Hello", say $_->[0] for $struct, $storable, $sereal;


__END__

Can't handle LVALUE data at C:/Programs/Strawberry/perl/vendor/lib/Data/Dump.pm line 374.
(
  ["Hi perlmonks", '#LVALUE#'],
  ["Hi perlmonks", \undef],
  ["Hi perlmonks", \"Hi"],
)
Hello perlmonks
Hi perlmonks
Hi perlmonks