How about:

my @distances =();
for(my $c=1; $c< scalar @results; $c++){
   my $distances[($c-1)] = $results[$c] - $results[($c-1)];
}
[download]

Just typed the code in the coment, so you have to try it an tweak it as necessary. But it SHOULD work just fine ;)