Is the script correct ???

Dear Collegues is the below given is correct ?

#!/usr/bin/perl
$a = @ARGV[0];
while ($a = @ARGV) {
exec "./jagan ../dat/ml_in @ARGV[0]";

}

Jagan