foreach my $aref (@shapes[2 .. $#shapes]) {
	print join(" ", @$aref[2 .. $#$aref]), "\n";	
}

##</code><code>##

c d e f g h i j k
Radio