use strict;
use Test::More tests => 1;

my @cb   = 
( 
    sub { $_[0] = reverse $_[0] },
    sub { $_[1] = reverse $_[1] },
);

my @args = qw( one two );

for my $cb (@cb)
{   
    $cb->((@args));
}

is_deeply( \@args, [qw( one two )] );