$ cat x.go
package main

import (
    "fmt"
    "math/rand"
    "time"
)

func main() {
    // Seed the random number generator
    seed := rand.NewSource(time.Now().UnixNano())
    r1 := rand.New(seed)

    // Generate random integers
    var ints []int
    for i := 0; i < 10000000; i++ {
        n := r1.Intn(10)
        ints = append(ints, n)
    }

    // Count ints occurrence
    count := make(map[int]int)
    for _, n := range ints {
        count[n]++
    }

    // Sort ints
    var intsSorted []int
    for n := range count {
        intsSorted = append(intsSorted, n)
    }

    // Print out ints occurrence
    for n := range intsSorted {
        fmt.Printf("%d\t%d\n", n, count[n])
    }
}

$ cat x.pl
#!/usr/bin/perl
use warnings;
use strict;

# Generate random integers
my @ints;
push @ints, int rand 10 for 1 .. 10_000_000;

# Count ints occurrence
my %count;
$count{$_}++ for @ints;

# Print out ints occurrence
for my $int ( sort keys %count ) {
    printf "%d\t%d\n", $int, $count{$int};
}