Select Code to Download

use strict;
use warnings;
...
    my    ($country, $exchange, $name, $forex, $ric, $isin, $cusip) = 
+split(/\;/ $line);
#similarly 100 vars are declared
}

##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;       ;

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