#/usr/bin/perl

use Data::Dumper;

## Populating the Arrays with some values.
@array1 = ( 1,2,3,4 ) ;
@array2 = ( 'one', 'two', 'three', 'four' );

## Initialise the index for the array
$i = 0;


## Join the two array 'array1', 'array2' in a single array named 'array'
map {  $array[$i][0] = $array1[$i] ; $array[$i][1] = $array2[$i]; $i++  } @array1 ;

print Dumper @array;