#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my $array = [];

push @$array, [ '1', 'one' ];
push @$array, [ '8', 'eight' ];
push @$array, [ '2', 'two' ];
push @$array, [ '100', 'one hundred' ];
push @$array, [ '4', 'four' ];
push @$array, [ '67', 'sixty seven' ];

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

print Dumper \$array2;