foo(@a)

##</code><code>##

foo($a[0], $a[1], $a[2], $a[3]);

##</code><code>##

my $old_x = [qw( a b c )];
$memd->set(x => $x);
my $new_x = mem_get('x');  # $new_x = 3 !?