for(@JpgList){ dbh = DBI->connect('Blah', 'Blah', 'Blah', 'Blah'); $dbh->{LongReadLen} = 65535; $stmt = $dbh->prepare(" UPDATE Images SET Name = $_ " ); $stmt->execute; $stmt->finish; $dbh->disconnect; rename("$_","Processed/$_"); }