nbsda1@vcstest3$ perl sudip.pl

$VAR1 = [
          '15140EQJP_55121',
          'DD UN',
          '2018175',
          'DU PONT (E.I.) DE NEMOURS',
          'BO data mismatch',
          '275000.0',
          '98027EQJP_54981'
        ];

$VAR1 = [
          '15140EQJP_55121',
          'CMI UN',
          '2240202',
          'CUMMINS INC',
          'BO data mismatch',
          '100000.0',
          '98059EQJP_53421'
        ];
$VAR1 = [
          '15140EQJP_55121',
          'DOW UN',
          '2278719',
          'DOW CHEMICAL',
          'BO data mismatch',
          '175000.0',
          '98027EQJP_54981'
        ];

nbsda1@vcstest3$