my $name = $greet;
eval 'print "$' . $name . '\n";';