#! perl
use strict;
use warnings;
use Set::Scalar;

my $range1  = Set::Scalar->new(5 .. 25);
my $range2  = Set::Scalar->new(7 .. 31);
my $common  = $range1->intersection($range2);
my @members = $common->members();

print join(', ', sort { $a <=> $b } @members), "\n";