foreach my $key (sort keys %result) {
    print("$key => $result{$key} \n");
}