Select Code to Download

use warnings;
use strict;
...
    );

print "<set label='$_->{label}' value='$_->{value}' />\n" for @rows;

<set label='January' value='17400' />
<set label='December' value='39800' />