my @args = ("name", 6, [[name1,alter], [name2, alter]]);
my $ref = \@args;

$ref->[2] = sort { $b->[0] cmp $a->[0] };

for (@{$ref->[2]})
   print $_->[0];
}