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;
    }
}