timethese
(-10, 
    {
        'tye'      => sub 
        { 
            $iter  = find_lances_tye   ( \%mechs, 5, 240, 10 );
            while ( my $lance = $iter->()  ) 
            {
                push @tye, join (",", sort @{$lance->{names}}) . "(" . $lance->{weight} . " tons)\n" ;
            }
            @tye = sort @tye;

        },
        'holli'    => sub 
        { 
            @holli = find_lances_holli (5, 240, 10, keys %mechs );
            @holli = map { join (",", sort @{$_->{names}}) . "(" . $_->{weight} . " tons)\n" } @holli;
            @holli = sort @holli;
            
        },
        'demerphq' => sub 
        { 
            @demerphq = find_lances_demerphq ( \%mechs, 5, 240, 10 );
            @demerphq = map { join (",", sort @{$_->{names}}) . "(" . $_->{weight} . " tons)\n" } @demerphq;
            @demerphq = sort @demerphq;
        },
        
    }
);