for my $molecs (@molecs) { my $structs = shift @structs; ## Add for my $steps (@steps) { make_path "/media/RAIDstorage/home/results/$structs/$molecs/$steps"; } }