#!/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;