On another note, you could use my module DynScalar.

use DynScalar 'delay';

$greeting = delay { "Hello, $name" };

print "Who are you? ";
chomp($name = <STDIN>);

print $greeting;
[download]

japhy -- Perl and Regex Hacker