my @ids;
my @titles;
my @dates;

foreach $line (@FILE) {
    my($id_number, $title, $date) = split(/\|/,$line);
    push (@ids, $id_number);
    push (@titles, $title);
    push (@dates, $date);
}

my @sorted = sort { $titles[$a] cmp $titles[$b] } (0 .. $#titles);
@ids    = @ids[@sorted];
@titles = @titles[@sorted];
@dates  = @dates[@sorted];