for my $prog (@programs) {
   system($prog)
}