my $sum = 0;
my $str = "";
foreach my $elem (@array) {
    $str .= ($sum + 1) . "-" . ($sum += $elem) . ",";
}
chop $str;
print $str, "\n";