my $dash = '-';
my ( $prefix, $suffix, @range, );
my $format = "%s%d%s%d";
my $args = [$prefix, $range[0], $dash, $range[1],];
$prefix = "stuff";
$range[0] = 2;
$range[1] = 10;
my $new_name = sprintf ("$format", @$args);
print "NEWNAME -> $new_name\n";