foreach my $line (<DATASOURCE>){