#!/usr/bin/perl

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

my @array=([2, 'fred'],
           [1, 'bob'],
           [4, 'john'],
           [3, 'peter']);

print Dumper [ sort {$a->[0] <=> $b->[0]} @array ];

__END__