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)]};