Note: I did this for "entertainment" purposes. Don't use it in production:). I would want to use a hash instead of an 100 arrays.

You'll need to install List::Gen.

#!/usr/bin/perl -l

use strict;
use warnings;
use List::Gen ':all';

print '@' . "H@$_" for every 1 => 1 .. 100;
[download]