my $subname = '1Button_Click';

*{$subname} = sub { print "Hello World\n"; };

no strict 'refs';
$subname->();