#!/usr/bin/perl

my %hash;
my &#36name="format_c";
my &#36wonid = 29473462;
my &#36weapon= "M1A1";

for (0..3) {
    &#36hash{"&#36name"}{"&#36wonid"}{"&#36weapon"}++;
}

for my &#36name (keys %hash) {
    for my &#36wonid (keys %{&#36hash{&#36name}}) {
     for (keys %{&#36hash{&#36name}{&#36wonid}}) {
        print "&#36name => &#36wonid => &#36_\n";
       print "&#36name => &#36wonid => connects &#36hash{&#36name}{&#36wonid}{&#36_}\n";
     }
    }

}