#!/usr/bin/perl
# your code goes here

print "Start\n";
$num_ports = 3;
$log2_ports;
my @multi_array = ();
push @multi_array, ([0,1,"2"]);
push @multi_array, ([10,11,"22"]);
push @multi_array, ([100,111,"222"]);

$size_m1 = scalar (@multi_array) - 1;

	print "First Loop\n";
foreach $i (0..$size_m1){
	print "Row $i : \@multi_array[$i] \n";
}
	print "Second Loop\n";
foreach $i (0..$size_m1){
	foreach $j (0..2){
	$val_times_2 = $multi_array[$i][$j] * 3;
	print "Row $i, Column $j: $multi_array[$i][$j]  and $val_times_2 \n";
	}
}
	print "Third Loop\n";
foreach $i (0..2){
	print "Row $i : @$multi_array \n";
}
	print "Fourth Loop\n";
foreach $i (0..2){
	foreach $j (0..2){
	print "Row $i, Column $j: $multi_array[$i][$j] \n";
	}
}

#print $num_ports;
#print $log2_ports;
print "Done";