@$_ = grep {not $_->{type} eq "warning"} @$_ for $UNNAMED_TOP_THINGY{list}{find};

##</code><code>##

%UNNAMED_TOP_THINGY = (
'list' =>          {                   
                        'find' =>       [
                                           {
                                             'type' => 'error',
                                             'column' => '106',
                                          }
                                         ]
                  }
);

##</code><code>##

@$_ = grep {not $_->{column} == 1} @$_ for $UNNAMED_TOP_THINGY{list}{find};