I like this:

while (my $row = $sth->fetchrow_hashref()) {
    for my $imgfile (map $row->{"image_$_"}, 1..4) {
        unlink "../../pics/$imgfile";
    }
}
[download]

But I will move the files somewhere else instead of deleting it.