Select Code to Download

#!/usr/bin/perl
use strict;
...
my $headers = ['item', 'seen in+'];

print Dumper make_list( file => $file, headings => $headers);

Crystal Skull|Stargate SG-1, Crystal Skull; The Librarian: Return to K
+ing Soloman's Mines; Indiana Jones and the Kingdom of the Crystal Sku
+ll
Spear of Destiny|The Librarian: Quest for the Spear; Hellboy; Constant
+ine
...
Excalibur|Excalibur; The Last Legion; The Librarian: Quest for the Spe
+ar
H.G. Wells' Time Machine|The Librarians; Warehouse 13
Holy Grail|Indiana Jones and the Last Crusade; The Librarian: Quest fo
+r the Spear

$VAR1 = {
          'Ark of the Covenant' => [
...
                           'The Librarian: Quest for the Spear'
                         ]
        };