@array= qw/10 10 48 22 34 54 23 65 22/;
@sarray=sort(@array);
my $last_element = "";
foreach $i (@sarray)
{
	if ($last_element ne $i)
	{
		print "$i\n";
		$last_element = $i;
	}
}