#!/usr/bin/perl -w
use SOAP::Lite;

my $data = "D:array1.csv";
open(INPUT, $data) or die "Cannot open $data";
my $line = <INPUT>;
while($line = <INPUT>)
{
$resultString = SOAP::Lite
-> uri('http://www.brenda-enzymes.org/soap2')
-> proxy('http://www.brenda-enzymes.org/soap2/brenda_server.php')
-> getSequence("ecNumber*$line#source*Swiss-Prot#textmining*0")
-> result;

print $resultString;
}

close(INPUT);