use Data::Alias;
sub getsubset {
	my $d = shift;
	alias my @x = @{$$d[1]}[1,2];
	alias my @y = @{$$d[2]}[1,2];
	return [ \@x, \@y ];
}