my %data = (1 => 'c', 2 => 'b', 3 => 'a');

foreach my $val (@data{sort keys %data}) {
	print $val . $/;
}