#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11137734 use warnings; my $inputfile = <; use Data::Dump 'dd'; dd \@sets; #### [0 .. 4, 9, 5 .. 8]