$ cat namevsref.pl
use warnings;
use strict;

my $time = 1;

my $x = sub {
  print "Inside sub. time = ".($time++)."\n";
};

no strict 'refs';
*{"tutu"} = $x;

$x->();
tutu();