or:

#!/bin/perl5

use strict;
use warnings;
use Data::Dumper;

my %h = (
  'list' => {   
    'find' => [
      {
        'type' => 'error',
        'column' => '106',
      },
      {
        'type' => 'warning',
        'column' => '1',
      }
    ]
  }
);

delete $h{list}{find}[1];

die Dumper(\%h);

__DATA__
---------- Capture Output ----------
> "c:\perl\bin\perl.exe" _new.pl
$VAR1 = {
          'list' => {
                      'find' => [
                                  {
                                    'type' => 'error',
                                    'column' => '106'
                                  }
                                ]
                    }
        };

> Terminated with exit code 255.
[download]