sub make_get_pairs {
    my $alias = \@_;
    sub { splice @$alias, 0, 2 }
}

my @foo = 1..10;

my $get_foo_pair = make_get_pairs(@foo);

while (my @chunk = $get_foo_pair->()) {
    print "Chunk: @chunk\n";
}
print "\@foo is still intact: @foo\n";