use Data::Dumper;
my @array = map {my $l = $_; chomp $l; [split /\s/,$l]} <DATA>;
my @sarray = sort { $a->[2] eq $b->[2] ? $a->[1] <=> $b->[1] : $b->[2] cmp $a->[2] } @array;
print Data::Dumper->new([\@sarray])->Indent(0)->Dump();
_ _DATA_ _
name6 22 m
name1 17 w
name5 16 m
name4 14 m
name3 20 w
name2 18 w

$VAR1 = [['name1','17','w'],['name2','18','w'],['name3','20','w'],['name4','14','m'],['name5','16','m'],['name6','22','m']];