#!/usr/bin/perl -l

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

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