/home/sites/abc.com/users/AB/
/home/sites/abc.com/users/CD/
/home/sites/abc.com/users/CD/asd/
/home/sites/abc.com/users/CD/ghf/
/home/sites/abc.com/users/EF/sss/
/home/sites/abc.com/users/EF/bc/

##</code><code>##

#!/usr/bin/perl
$arg1 = $ARGV[0];
@filelist =  ` find /home/sites/$arg1/users -type d `;
chomp @filelist;
@store = ();

foreach $fle(@filelist)
{
($junk, $reqd )=split (/\/users\//,$fle);
($reqd, $junk) = split (/\//,$reqd);
push (@store,$reqd);
}