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

my @data = (
	[    1, "berta"  ],
	[   20, "thomas" ],
	[   11, "walter" ],
	[ 1024, "adam"   ],
	[   20, "chris"  ],
);

# 1. Spalte numerisch, dann bei Gleichheit 2. Spalte lexikalisch
my @sorted = sort { $a->[0] <=> $b->[0] || $a->[1] cmp $b->[1] } @data;

print Dumper \@sorted;

# 2. Spalte lexikalisch, dann bei Gleichheit 1. Spalte numerisch
@sorted =  sort { $a->[1] cmp $b->[1] || $a->[0] <=> $b->[0] } @data;

print Dumper \@sorted;