#!/usr/local/bin/perl
$i = 0;
$mixedData[$i] = \@mixedData;
$mixedData[2] = 8;
$mixedData[6] = "last cell";
$mixedData[4] = 3.4;
foreach $value (@mixedData){
print "Cell number $i = $value \n";
$i++;
}
print "\n\n";
print "The last cell of the array mixedData is $#mixedData";
print "\n\n";