foreach my $listDevices ($device_list->result()) {
    ...
        open OVERWRITE, ">overwrite.txt" or die $!            
    ...
        close OVERWRITE;
    ...
}