use Data::Dumper; @results1 = ('employee1','address1','payrate1','hiredate1', 'employee2','address2','payrate2','hiredate2'); @results2 = ('employee3','address3','payrate3','hiredate3', 'employee4','address4','payrate4','hiredate4'); push @results1, @results2; print Dumper \@results1; ### OUTPUT ### $VAR1 = [ 'employee1', 'address1', 'payrate1', 'hiredate1', 'employee2', 'address2', 'payrate2', 'hiredate2', 'employee3', 'address3', 'payrate3', 'hiredate3', 'employee4', 'address4', 'payrate4', 'hiredate4' ];