evalを試してみる

引数の値をPerlのスクリプトとして解析し、実行します。変数の設定、サブルーチンなどの定義は、その後も有効です。返される値は、サブルーチン同様に、最後に評価した式の値か、return文の値です。
http://www.rfs.jp/sb/perl/05/eval.html

ということは、、、

my $hoge = 'foo';
print eval {$hoge}, "\n";
print eval {$hoge; return 'piyo';}, "\n";
print eval {$hoge = 'bar'}, "\n";

とすると、実行結果は、、、

foo
piyo
bar