use constant FORMAT =>
'@413A30 @373A30 @343A30 @245A15 @679A30 @10A10 @900A100 @500A2 
. @313A30 @844A44 @111A1 @100A100 @454A30 @240A3 @236A4';

sub unpack_it{
	unpack( FORMAT, $_[0]);
}
# gives
            Rate substr_it unpack_it
substr_it 3821/s        --      -16%
unpack_it 4575/s       20%        --
Results tally