for ('perl script.pl', 'program.exe') {
  system("start $_") == 0
    or warn "$_: $!";
}