my $var = "test";
my $sub = \&{ $var };
$sub->($parameter);