#!/usr/bin/perl -w
########################################################################
 
 
use strict;
use Data::Dumper;
 
 
my %hash=();
 
 
foreach my $i('a'...'g'){
    foreach my $j('a'..'g'){
        $hash{$i,$j}="-";
    }
}
 
 
 
print Dumper(%hash);