[0] Perl> cmpthese -1, { 
     a=>q[ 1 while chop( $sa )         ], 
     b=>q[ chop( $sb ) while $sb ne '' ], 
     c=>q[ chop( $sc ) while $sc       ] 
};;
        Rate    b    a    c
b  8686428/s   --  -2% -20%
a  8821000/s   2%   -- -19%
c 10841356/s  25%  23%   --