use strict;
use warnings;

my $file = "/tmp/index.csv";
open (FL, "< $file");
while ($line = <FL>){
    my	($country, $exchange, $name, $forex, $ric, $isin, $cusip) = split(/\;/ $line);
#similarly 100 vars are declared
}