#!/usr/bin/perl


my @oldArray = "1,2,3,4,5,6,7,8,9";
$i = 0;
foreach $number (@oldArray) {
		$newArray[$i] = $number * $number;
		$i++;
		print "newArray[$i] = $newArray[$i]\n";

}