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