#! /usr/bin/perl -w

use strict;
use diagnostics;
use warnings;
use Data::Dumper;

my @array = (['test','renee',1],['dies ist','jan',3],['ein','n00b',2]);
my @array2 = sort({$$a[2] <=> $$b[2]} @array);

print Dumper(\@array);
print Dumper(\@array2);