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]

Weird. All this time I thought delete only worked on hashes and you had to use splice for arrays, but I was obviously wrong.

use strict;
use warnings;

use Data::Dumper;

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

print Dumper (\%h);

#use pop for last element
#pop @{$h{list}->{find}};

#use slice for any other element
@{$h{list}->{find}} = @{$h{list}->{find}}[0,2];

print Dumper (\%h);
[download]

@$_ = grep {not $_->{type} eq "warning"} @$_ for $UNNAMED_TOP_THINGY{l
+ist}{find};
[download]

I mean, based on your example, this would also have worked:

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

@$_ = grep {not $_->{column} == 1} @$_ for $UNNAMED_TOP_THINGY{list}{f
+ind};
[download]

Hi, Try this,

use warnings;
use strict;
use Data::Dumper;
my %hoh; 
 %hoh = ('list' => {   
                        'find' => [
                                     {
                                        'type' => 'error',
                                        'column' => '106',
                                     },
                                     {
                                        'type' => 'warning',
                                        'column' => '1',
                                     }
                                  ]});

delete ($hoh{'list'}->{'find'}[1]->{'type'});
delete ($hoh{'list'}->{'find'}[1]->{'column'});
print Dumper (\%hoh);
__END__

$VAR1 = {
          'list' => {
                      'find' => [
                                  {
                                    'type' => 'error',
                                    'column' => '106'
                                  },
                                  {}
                                ]
                    }
        };
[download]

Updated :This will delete full second array element. Above code will delete particular element in array.

delete ($hoh{'list'}->{'find'}[1]);
[download]

- "keep only the first one"

- "delete only last one"

- "consolidate to the highest column and lowest type"

- "if the array size is odd numbered remove the last one, otherwise remove all those whose 11-bit checkdigit of the type doesn't match the 13-bit checksum of the current username",

and so on ad infinitum. For clarity can you tell us which of the possible rules you don't mean? (j/k).

It's really not very clear what you want to do.

Here's one possible solution.

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

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

print Dumper \%hash;

pop @{$hash{list}{find}};

print Dumper \%hash;
[download]