my %result = map {split /\|/} <FILE>;

##</code><code>##

use strict;
use warnings;

use Data::Dumper;

my $inFile = q{spw708412.dat};
my %stuff  = do
   {
       open my $inFH, q{<}, $inFile
          or die qq{open: < $inFile: $!\n};
       map { chomp; split m{\|} } <$inFH>;
   };

print Data::Dumper->Dumpxs( [ \ %stuff ], [ q{*stuff} ] );

##</code><code>##

[johngg@ovs276 perl]$ cat spw708412.dat 
abc|123
def|456
[johngg@ovs276 perl]$ ./spw708412
%stuff = (
           'def' => '456',
           'abc' => '123'
         );
[johngg@ovs276 perl]$