The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use strict;
use warnings;
use Storable::AMF0;
eval 'use Test::More tests=>1;';

my @a;$a[5] =1;
ok(Storable::AMF0::freeze(\@a));