Your second "foreach" is not necessary.

I think the OP is trying to do this with the second foreach:

for(my $i=1; $i < @array; $i++){
    print "The difference is ", $array[$i] - $array[$i-1], "\n";
}
[download]