my $info = "out.txt";
open my $out,">", $info or die "could not open $info $!";
print $out "Key: $_ and Value: $functions{$_}\n" for sort keys %functions;
close $out;