Select Code to Download

use IO::File;
use Data::Dumper;
...
}

print Dumper(\@vars);

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

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