Simple

L'algo est très simple, après peut être veux-tu savoir comment ouvrir un fichier pour en lire ses lignes, ou écrire dans un fichier.

Exemple qui lit un fichier passé en paramètre, et écrit sur la sortie standard.

use strict;
use warnings;
my @lines;
my $path = shift; # gets and removes first param from command line, ie. $ARGV[0]
if (open (my $f, '<', $path)) {
 do {
 local $\; # slurp mode, <> will read whole file in one go, line by line
 @lines = <$f>;
 };
 # note: $#lines == last index of @lines
 for (my $i = $#lines; $i > 0; $i--) {
 for (my $j = $i-1; $j >=0; $j--) {
 print $lines[$i]-$lines[$j], "\n";
 }
 }
 close $f;
} else {
 die "Cannot open '$path': $!\n"
}

La doc intéressante est:
http://perldoc.perl.org/functions/open.html (ouvrir un fichier)
http://perldoc.perl.org/functions/print.html (écrire, potentiellement dans un fichier)