@picturetemp = `ls -A $sourcepath`;
print @picturetemp;
@picturelist = grep{ $_ ne 'thumbs' }@picturetemp;