#! perl -slw
use strict;
use Time::HiRes qw[ time ];

while( my $arg = <DATA> ) {
    my $start = time;
    system "perl script.pl $arg";
    printf "With '%s' took: %.3f seconds\n", $arg, $time() - $start;
}
__DATA__
1000 args here 
...
...