Lady_Aleena has asked for the wisdom of the Perl Monks concerning the following question:

Hello. I'm currently rewriting one of my more loathed subs with Text::CSV_XS. I was wondering if there were a way to write it so that it returns key-value pairs instead of an array or hash of hashes when there are only two fields in the file.

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
Book or Key of Soloman|The Librarian: Return to King Soloman's Mines; +Season of the Witch
Necronomicon|H.P. Lovecraft
Ark of the Covenant|Raides of the Lost Ark; The Librarian: Quest for t+he Spear
TARDIS|Doctor Who; The Sarah Jane Adventures; The Librarians, And the +Final Curtain
Doc Brown's Delorean|Back to the Future; Back to the Future Part II; B+ack to the Future Part III; The Librarians, And the Final Curtain
Pandora's Box|Warehouse 13; The Librarian: Quest for the Spear
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