@ary = qw( a b c d e f g h i );
for ( my $i=0; $i<@ary; $i=$i+2 ) {
    print "$ary[$i] - $ary[$i+1]\n";
}