my $name = 'est';
*{$name} = sub { print "hello\n"; };
est();