@picturelist = `ls -A $sourcepath`;

$p = 1;
while ($p <= $#picturelist){
	if($picturelist[$p] =~ /thumbs/){splice @picturelist, $p,;}
}