my $one = ("$apple", "$pear");
my $two = "$orange";
$$one->[0]= "hello";
$$two = "goodbye";
print "$apple $orange";