foreach my $line (<DATASOURCE>){

##</code><code>##

while(my $line = <DATASOURCE>) {