Select Code to Download

use Data::Dumper;
my %result; # Be careful here, I used a hash, not a hashref
{
...
    (ADDRESS = (PROTOCAL = TCP))
    (CONNECT_DATA = (SID = db5))
  )