my $subref = $tests;  # Right here

$testsub = sub {
        print $_;
        };  # And here