I could think of several ways, but this seemed the easiest to understand and write. :)

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

Output:

c d e f g h i j k
Radio
[download]

Hope this is helpful.