/home/sites/$arg1/users/XY/
/home/sites/$arg1/users/YZ/bbb/ 
/home/sites/$arg1/users/BD/ss/ 
/home/sites/$arg1/users/GD/gg/ 
/home/sites/$arg1/users/ZX/

##</code><code>##

XY
YZ
YZ
BD
BD
GD
GD
ZX

##</code><code>##

XY
YZ
BD
GD
ZX

#!/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);
}