#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @array = ([1,2,3],[4,5,6]);
print Dumper(\@array);

for my $elem(@array){
  $elem = [splice(@$elem,1,1)];
}

print Dumper(\@array);