sub XX{
	my $x = 'one'; #scalar value
	push(@{$x}, 'two'); #  push(@one, 'two')
	push(@{$x}, 'three'); # push(@one, 'three')
	return $x;
}