use strict;
use warnings;
package MyClass;

my $anon = sub{
    print "this is anonymous called on: $_[0]\n";
};

sub calc{
    #$anon->('TEST');
}

calc();
1;