This is my first good sort CGI program

 @sorted = sort { $a->[1] <=> $b->[1] } @unsorted; 

$VAR1 = [
          [
            'Harry',
            10
          ],
          [
            'Tim',
            8
          ],
          [
            'Joe',
            3
          ]
        ];
$VAR1 = [
          [
            'Joe',
            3
          ],
          [
            'Tim',
            8
          ],
          [
            'Harry',
            10
          ]
        ];