opendir (DIR,$strPath) || die print "can't open dir : !$\n";
my @arrDirList=readdir(DIR);
if ($strPath eq "/home/dev/jhon")
  {
   foreach $arrDirList(@arrDirList)
    {
      my $temp = "/WORKAREA/work";  
      open (DIR1, $strPath/$arrDirList$temp) || die print "nuts";
      my @SubList=readdir(DIR1);
    }
   }
  else
   {
     continue on whatever i am doing
   }