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);
[download]

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

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