#!/usr/bin/perl

@array = ("1", "2", "p", "o", "o", "h", "U");
$char = "\x98";
$index = 4;
@array2 = ();

#printArray(\@array);

print "array is @array\n";

print "The inserted char will be $char\n";

@array2 = arrayInsert($char, \@array, $index);

print "the final array is @array2\n";


sub arrayInsert(){
	#print "Enter\n";
	my($char) 		= $_[0];
	my($array) 		= $_[1];	#array
	my($index) 		= $_[2];
	my($i)			= 0;	
	my(@newArray)	= ();
	
	for ($i=0; $i<$index; $i++){
		$newArray[$i] = @$array[$i];
	}
	$newArray[$index] = $char;
	
	for ($i=$index+1; $i<@array+1; $i++){
		$newArray[$i] = @$array[$i-1];
	}

	#print "Exit\n";
	return @newArray;
}