sub sub1 { (caller(1))[6] =~ /(^\w+)/; print "$1 is not accessible!" }
+;;

{
    no strict 'refs';
    *{ 'sub' . $_ } = *sub1 for 2 .. 70;;
}

sub1;;
sub1 is not accessible!

sub70;;
sub70 is not accessible!
[download]