Select Code to Download

foreach my $line (@{$offers->{'offers'}{'offer'}})      {
        foreach my $row (sort keys %$line)      {
...
        }
print "\n";
}

$VAR1 = {
          'offers' => {
...
                                   ]
                      }
        };