my @data = ('a', 'b', 'c');
my ($x, $y);
$x = \@data;
@$y = @data;