@numbers = ('1','1','1','2','2','3','3','4','4','5','6');
@strings = ('hello','you','tree','people','fun','sun','grass','love','food','car','rabbit');
for (0..$#numbers){
	$hash{$numbers[$_]}.=$strings[$_]
};
print "$hash{$_}\n" for sort {$a<=>$b} keys (%hash) ;