if ($_[1] == "1")
{push @{{$_[2]}{$_[0]}{$_[1]}}, $_[3];}