Help for this page

Select Code to Download


  1. or download this
    for my $record (@sorted) {
        print @$record;
    ...
    
    print $sorted[0][2],
          $sorted[2][1];