#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use utf8;

my @array = (
    [ qw/ david raab 24 3 /    ],
    [ qw/ anne schmidt 23 1/   ],
    [ qw/ manuel montero 24 2/ ],
);

@array = sort { $a->[3] <=>  $b->[3] } @array;

print Dumper \@array;