the following code shows how to sort this data structure by any of its three columns.

@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;
[download]

notice that the sorts on columns 0 and 1, the names, are performed ASCIIbetically, while the sort by number is done numerically.