#!/usr/bin/perl -w
my (@home);
@home = (21,29,2,23,10,9);
print map{$_. "\n"} sort { $a <=>  $b} @home;