Sounds like a job for grep:

my @pictures = grep not /thumbs/, `ls -A $sourcepath';
[download]

[ ar0n ]

---

update: it seems my time warp machine has failed me again. damn.