use IO::File;
use Data::Dumper;

my $f = new IO::File "file.txt", "r" or die "Can not open file";

my @vars;
while (<$f>) {
    my ($d, $t) = $_ =~ /^(\d+)\|\|(\w+)$/;
    push @vars, { num => $d, txt => $t };
}

print Dumper(\@vars);

##</code><code>##

@vars = [
         { num => '123', txt => 'abc' },
         { num => '234', txt => 'frt' },
         ...
        ];

##</code><code>##

$var[0]->{num}, $var[1]->{txt}, etc...