You are correct(++) - I misread the curly brackets.

Another way he can achieve this - arguably more readable is:

my @a=@array; # make a copy, since we will destroy @a
my $prev=pop @a; 
for (reverse @a){
   print  $prev - $_, "\n";
   $prev=$_;
}
[download]