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

##</code><code>##

$VAR1 = [
          [
            '100.20',
            '100.23',
            '100.35'
          ],
          [
            '122.45',
            '122.55',
            '122.67',
            '122.75'
          ],
          [
            '145.88',
            '145.97',
            '146.01',
            '146.10'
          ]
        ];