use strict;

our $a="func";
sub func {print shift}; 

{
  no strict 'refs';
  &$a(42);
}