Perl program for https://stackoverflow.com/questions/41864011/associative-arrays-python-vs-perl-vs-awk-performace/41865056#41865056

gistfile1.pl

use strict;
use warnings;
use v5.10;

for (1..400_000_000) {
    my $key1 = int rand(2) ? "NM" : "XR";
    my $key2 = int rand(2) ? "NM" : "XR";
    
    my $num1 = rand(10_000_000);
    my $num2 = rand(10_000_000);
    my $num3 = rand(1);
    $num3 *= -1 if int rand(2);
    
    printf(
        "%s_%9.1f,%s_%9.1f,%f\n",
        $key1, $num1,
        $key2, $num2,
        $num3
    );
}