use File::Path 'rmtree';

   rmtree([ "$rootpath/$username" ]);

##</code><code>##

   rmtree([ map {"$rootpath/$_"} @user ]);

##</code><code>##

   rmtree([ map {"$rootpath/$_"} @user ], 1);