use strict;

my $testsub = sub 
{
	print $_[0];
};

&{$testsub}("hi");