#!/usr/bin/perl -w
use strict;
my @array=qw (5 4 10);
for(my $i=0;$i<$#array;$i++){
            my $first=$array[$i];
            my $b=$i+1;
            my $second=$array[$b];
            my $sum=$first+$second;
            print $first."-".$sum."\n";
            
        }