Sometimes I don't like using array indices. ;-)

use List::Util qw( head tail );
use List::MoreUtils qw( pairwise );

print 
    map "difference is $_ \n",
        pairwise { $b - $a }
            @{[head(-1,@array)]},
            @{[tail(-1,@array)]};
[download]