#!/usr/bin/perl  
 
use strict;
use warnings;  


use Data::Dumper;

 my $data = _test();
 
 my $header_row;
 
 push @$header_row, ["City Name", "Last Name", "First Name", "Addrress",],
		["", "", "", "",];

 unshift @{ $data }, @{ $header_row };

 print Dumper $data;


sub _test {

 my @data = [
          {
            'CITY' => 'San Frans',
            'LAST_NAME' => 'Doe',
	    'FIRST_NAME' => 'Jonh',
            'ADDRESS' => '100 Main Street',
          },
	  
        ];
 return \@data;
}