my @keys = sort { $functions{$a} <=> $functions{$b} } keys(%functions);
my @vals = @functions{@keys};
	
	
$info = "out.txt";
open(out,">$info");

print out "Key: $_ and Value: $functions{$_}\n" foreach (keys%functions);

close;