There are a couple of ways to do this. The cleanest doesn't use shell code at all:

my $topdir = '.';
my @subdirectory_names = ( 'bob', 'bill', 'sue' );
foreach my $dir( @subdirectory_names ){
    mkdir( "$topdir/$dir" ) or die "Couldn't mkdir $topdir/$dir: $!";
    foreach my $redirect( 'redirect_1.html', 'redirect_2.html' ){
        open( OUT, ">$topdir/$dir/$redirect" );
        print OUT $redirect_html_code; # this should be set above
        close OUT;
    }
}
[download]

If you must use shell for some reason, though, there are three functions that execute shell code: exec, system, and backticks (``, or qx//). Each of those links lead to an explanation of each function.

Hope that helps!
--

Love justice; desire mercy.