@h = ($netman= `ps -ef|grep -i netman|grep -v grep|wc -l`,
        $jobman= `ps -ef|grep -i jobman|grep -v grep|wc -l`,
        $mailman= `ps -ef|grep -i mailman|grep -v grep|wc -l`,
        $batchman= `ps -ef|grep -i batchman|grep -v grep|wc -l`,
        $writer= `ps -ef|grep -i writer|grep -v grep|wc -l`
       );
#%h = ("a", "$netman", "b", "$jobman", "c", "$mailman", "d", "$batchman", "e", "$writer");
@h = ("$netman","$jobman","$mailman","$batchman","$writer");
@bob = @h;
print @bob;
#print "[0],[1],[2],[3],[4]"
#print $h {$netman} $h {$jobman} $h {$mailman} $h {$batchman} $h {$writer};
#print "$netman$jobman$mailman$batchman$writer";