Select Code to Download

#! perl -slw
use warnings;
...
+ 2 3.0
- 4 4.9
+ 4 5.0

sub cmp{ 
    print "cmp: @_";
    abs( ${ $_[ 0 ] } - ${ $_[ 1 ] } ) > 0.1 ; 
}

P:\test>377814
cmp: 1.0 1.0
...
+ 2 3.0
- 4 4.9
+ 4 5.0