@data = (
	[qw(marek brutalski 20)],
	[qw(zenia markownikowa 10)],
	[qw(teresa parufkowa 90)],
	[qw(bogumila pierdawa 40)],
	[qw(genowefa tempawa 50)],
);

# Sort by first name
@sorted_by_first = sort { $a->[0] cmp $b->[0] } @data;

# Sort by last name
@sorted_by_last = sort { $a->[1] cmp $b->[1] } @data;

# Sort by score
@sorted_by_score = sort { $a->[2] <=> $b->[2] } @data;