##
the diff between 0.35 and 1.34 is 0.99.
####
for ($i = 2; $i < @numbers; $i++) {
if (defined ($numbers[$i]) && defined ($numbers [$i-1])) {
$d = abs ($numbers [$i] - $numbers [$i-1]);
$d =~ s/-//g;
$diff = $d if $diff < $d;
@diff_val = "$numbers[$i]\t$numbers[$i-1]\n";
@diff_val = split ('', $testing);
push (@d, $d, $diff_val[0], $diff_val[1]);
}
}
print "Greatest difference in the first sample is $diff\n";