use strict;
use warnings;

my @array = ( 5, 4, 10 );
my $start = 1;
my $sum = 0;

for my $num ( @array ) {
  $sum += $num;
  print "$start-$sum\n";
  $start += $num;
}