#!/usr/bin/perl

use Data::Dumper;

$VAR2 = {
          'CSTRING' => 'public',
          'SPECIFIC' => '1',
          'GENERIC' => '6',
          'SSERVER' => 'testmachine',
          'DATE' => 'Tue Feb 25 10:13:43 2003',
          'OID' => '1.2.3.4.5',
          'DEVICE' => '123.124.125.126',
          'TRAPS' => {
                       'TRAP_LIST' => [
                                        {
                                          'TYPE' => 4,
                                          'DATA' => 'foo',
                                          'VARBIND' => '1.2.3.4.5'
                                        },
                                        {
                                          'TYPE' => 44,
                                          'DATA' => 'bar',
                                          'VARBIND' => '1.2.3.4.5'
                                        },
		
                                        {
                                          'TYPE' => 444,
                                          'DATA' => 'bar',
                                          'VARBIND' => '1.2.3.4.5'
                                        },
                                        {
                                          'TYPE' => 4444,
                                          'DATA' => 'bar',
                                          'VARBIND' => '1.2.3.4.5'
                                        }

                                      ]
                     },
          'PORT' => '161'
        };

print Dumper $VAR2 ;
del($VAR2);

print Dumper $VAR2 ;


sub del{
    splice @{$VAR2->{'TRAPS'}->{'TRAP_LIST'}}, 2, 3;

}