Select Code to Download

use strict;
use warnings;
...
        next MAIN;
    }
}

$VAR1 = {
          'ID' => '2222',
...
          'new_ad1' => '44 Dell St'
        };