while (<DATA>) {
    eval $_;
}

print "$apple, $pear, $orange\n";

__DATA__
$apple = 'green';
$pear = 'sweet';
$orange = 'healthy';