#!/usr/bin/perl --

$VAR1 = [
          [
            'IMG0001',
            [
              {
                'y' => 0,
                'filename' => 'new value',
                'x' => 0
              },
              {
                'y' => 10,
                'filename' => 'cel.jpg',
                'x' => 10
              }
            ]
          ],
          [
            'IMG0002',
            [
              {
                'y' => 0,
                'filename' => 'batman.jpg',
                'x' => 0
              },
              {
                'y' => 10,
                'filename' => 'robin.jpg',
                'x' => 10
              }
            ]
          ]
        ];

print $VAR1->[1][1][1]{filename},$/;
splice @{$VAR1->[1][1]}, 1;
use Data::Dumper;
print Dumper( $VAR1),$/;
__END__
robin.jpg
$VAR1 = [
          [
            'IMG0001',
            [
              {
                'y' => 0,
                'filename' => 'new value',
                'x' => 0
              },
              {
                'y' => 10,
                'filename' => 'cel.jpg',
                'x' => 10
              }
            ]
          ],
          [
            'IMG0002',
            [
              {
                'y' => 0,
                'filename' => 'batman.jpg',
                'x' => 0
              }
            ]
          ]
        ];
[download]