#! perl -slw
use warnings;
use strict;
use Data::Dumper;
use Algorithm::Diff qw( diff );

{ 
	package myFloats;
	use overload 
		'eq' => \&cmp,
		'""' => \&stringy;
	
	sub new{ return bless \$_[ 1 ], $_[ 0 ] }
	sub cmp{ abs( ${ $_[ 0 ] } - ${ $_[ 1 ] } ) > 0.1 ; }
	sub stringy{ ${ $_[ 0 ] } }
}
		


my @a = map{ myFloats->new( $_ ) } qw( 1.0 2.1 3.2 4.0 4.9 5.8 );
my @b = map{ myFloats->new( $_ ) } qw( 1.0 2.0 3.0 4.0 5.0 6.0 );

my @d = diff( \@a, \@b );

print "@$_" for map{ @$_ } @d;
__END__
P:\test>377814
- 1 2.1
- 2 3.2
+ 1 2.0
+ 2 3.0
- 4 4.9
+ 4 5.0

##</code><code>##

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

##</code><code>##

P:\test>377814
cmp: 1.0 1.0
cmp: 5.8 6.0
cmp: 4.9 5.0
- 1 2.1
- 2 3.2
+ 1 2.0
+ 2 3.0
- 4 4.9
+ 4 5.0