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
}

##</code><code>##

##CSV file format
Country;Exchange;NAME;Forex;RIC;ISIN;CUSIP;
AT;XETRA (AT)     ;RAIFFEISEN INTERNATIONAL BANK ;EUR;RIBH.VI         ;AT0000606306;       ;B0704T9;
AT;XETRA (AT)     ;IMMOEAST IMMOBILIEN ANLAGEN AG;USD;IMEA.VI         ;AT0000642806;       ;

##</code><code>##


$Country = "AT";
$Exchange ="Xetra (AT)";
$NAME = "RAIFFEISEN INTERNATIONAL BANK ";
#etc..