#!/usr/bin/perl -w

my ($a,$b,$c,@home);
@home = (1,2,2,23,10,9);
print map{$_."\n"} sort {my $a<=>my $b} @home;