#!/usr/bin/perl
# test1.pl
use strict;
use warnings;

my $array = ( 1, 2, 3, 4);
my $program = 'test2.pl';
exec { $program } @{$array};

#!/usr/bin/perl
# test2.pl
use strict;
use warnings;

print "$_ " foreach @ARGV;