my @data = ( [ 1, 10, 100],
             [  2, 34, 300],
              [  3, 23, 500] );



@sorted_data =  sort { $a->[1] <=> $b->[1] } @data;
print $sorted_data[2][2];
__END__
300
[download]

artist