$img = shift @imgs;
$link = shift @urls;

# print statements here

push @imgs, $img;
push @urls, $link;

##</code><code>##

while ($c = <DAT>) {
	($id,$image,$url)=split(/\|/,$c);

	if ($type=~/^internal|partner$/) {
		push (@imgs,$image);
		push (@urls,$url);
		push (@des,$desc);
	}
}
close DAT;