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

IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKcHJpbnQgIlN0YXJ0XG4iOwokbnVtX3BvcnRzID0gMzsKJGxvZzJfcG9ydHM7Cm15IEBtdWx0aV9hcnJheSA9ICgpOwpwdXNoIEBtdWx0aV9hcnJheSwgKFswLDEsIjIiXSk7CnB1c2ggQG11bHRpX2FycmF5LCAoWzEwLDExLCIyMiJdKTsKcHVzaCBAbXVsdGlfYXJyYXksIChbMTAwLDExMSwiMjIyIl0pOwoKJHNpemVfbTEgPSBzY2FsYXIgKEBtdWx0aV9hcnJheSkgLSAxOwoKCXByaW50ICJGaXJzdCBMb29wXG4iOwpmb3JlYWNoICRpICgwLi4kc2l6ZV9tMSl7CglwcmludCAiUm93ICRpIDogXEBtdWx0aV9hcnJheVskaV0gXG4iOwp9CglwcmludCAiU2Vjb25kIExvb3BcbiI7CmZvcmVhY2ggJGkgKDAuLiRzaXplX20xKXsKCWZvcmVhY2ggJGogKDAuLjIpewoJJHZhbF90aW1lc18yID0gJG11bHRpX2FycmF5WyRpXVskal0gKiAzOwoJcHJpbnQgIlJvdyAkaSwgQ29sdW1uICRqOiAkbXVsdGlfYXJyYXlbJGldWyRqXSAgYW5kICR2YWxfdGltZXNfMiBcbiI7Cgl9Cn0KCXByaW50ICJUaGlyZCBMb29wXG4iOwpmb3JlYWNoICRpICgwLi4yKXsKCXByaW50ICJSb3cgJGkgOiBAJG11bHRpX2FycmF5IFxuIjsKfQoJcHJpbnQgIkZvdXJ0aCBMb29wXG4iOwpmb3JlYWNoICRpICgwLi4yKXsKCWZvcmVhY2ggJGogKDAuLjIpewoJcHJpbnQgIlJvdyAkaSwgQ29sdW1uICRqOiAkbXVsdGlfYXJyYXlbJGldWyRqXSBcbiI7Cgl9Cn0KCiNwcmludCAkbnVtX3BvcnRzOwojcHJpbnQgJGxvZzJfcG9ydHM7CnByaW50ICJEb25lIjs=