for my $elem ( @mkdir ) {
    mkdir $elem;
    chdir $elem;
}