my @array = ("1", "2", sub { print "OK" });
&{$array[2]};