#!perl -w

use strict;
use Data::Dumper;

my @list = (
	{
          dist => 3,
	},
	{
          dist => 1,
	},
	{
          dist => 11,
	},
	);	
		
my @sorted = sort { $a->{dist} <=> $b->{dist} }	@list;

print Dumper( \@list );
print Dumper( \@sorted );