manipulation de liste

Bonjour à tous,
Je souhaiterai écrire ma liste qui se présente de cette façon :
a b c d e f
en
(a - b)
(c - d)
(e -f )

Comment puis je faire ?
Merci d'avance

Quelque chose comme ça:

Code:

---

1 2 3 4 5 6 7

my $liste = "a b c d e f g"; my @reste = split / /, $liste; while (@reste) { my ($premier, $deuxieme); ($premier, $deuxieme, @reste) = @reste; print "( $premier - $deuxieme ) \n"; }

---