Select Code to Download

my @numbers = split /, /,$file;

print join("\n",@numbers) . "\n";

foreach my $index (1 .. $#numbers)

my $difference = abs($numbers[$index] - $numbers[$index - 1]);

$max_difference = ($index == 1 or $difference > $max_difference)?$diff
+erence:$max_difference;

print "$max_difference\n";

use strict;
use warnings;
...
   $max_difference = ($index == 1 or $difference > $max_difference)?$d
+ifference:$max_difference;
}
print "$max_difference\n";