my @one = ('$apple', '$pear');
my $two = '$orange';
eval "$one[0] = 'hello'";  # evaluates  $apple = 'hello'
eval "$two = 'goodbye'";   # evaluates  $orange = 'goodbye'
print "$apple $orange";    # hello goodbye