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