Select Code to Download

sub kyle {
    my ($s1, $s2) = @_;
...

    return $out;
}

my $subs =  {
    'split1'     => sub { my $s3 = split1( $s1, $s2 ) },
...
        ok( defined $s3, "$subname gets some value" );
    }
}

sub moritz {
    my ($s1, $s2) = @_;
...

    return $s1;
}

split1     5.94/s
substr1    41.3/s
...
ok 7 - ikegami_s gets same value
ok 8 - avar gets same value
ok 9 - avar2 gets same value