#c:\perl\bin\perl

my %line;
$why = "";
$a = A;
$b = B;
$c = C;

$line{$a}{$b}{$c};

$i = 1;

for $a (keys %line) {
for $b (keys %{$line{$a}}) {
for $c (keys %{$line{$a}{$b}}) {

print "$a $b $c\n";

}
}
}