Select Code to Download

...
 push @$header_row, @$data;
 print Dumper $header_row;
..

use strict;
use warnings;
...
    ];
    return \@data;
}

$VAR1 = [
          [
...
            '100 Main Street'
          ]
        ];