#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my $data = {
            'news' => [
                       {
                        'title' => 'news1',
                        'content' => 'Article Contents...blah',
                        'date' => '08-03-01'
                       },
                       {
                        'title' => 'news2',
                        'content' => 'Article Contents...blah',
                        'date' => '07-20-01'
                       }
                      ]
           };

@{ $data->{news} } = grep { $_->{title} ne 'news1' } @{ $data->{news} 
+};

print Dumper(\$data);
[download]