use Modern::Perl;
use Parse::Range;
my @range = parse_range('7-12');
say "@range";