#!/usr/bin/env perl
use 5.016;

my $mysubref = sub {
    say "This is code Ref 0";
    say "This is code Ref 1";
    say "This is code Ref 2";
};

testMethod();

sub testMethod
{
    say "in testMethod";
    &{$mysubref};
}

say "end the program";