my ( $w, $x, $y, $z ) = @_;
if ( $x == 1 ) { # or $x eq "1"
  push @{{$y}{$w}{$x}}, $z;
}