use strict;
use Data::Dumper;

my @arry = (
   [qw(one two three)],
   [qw(foo bar baz)],
);

my @new;
push @new, splice(@$_,$#$_,1) for @arry;

print Dumper \@new;