#!/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";