use strict;
use warnings;

use Data::Dumper;

use Set::Partition::SimilarValues;

chomp( my( @numbers ) = <DATA> );

my $set_obj = Set::Partition::SimilarValues->new(
    GroupSeparationFactor => 1.15
);

my @sets = $set_obj->find_groups( @numbers );

print Dumper \@sets;


__DATA__
100.20
100.23
100.35
122.45
122.55
122.67
122.75
145.88
145.97
146.01
146.10