my @list = qx(p4 -p $P4PORT groups);

foreach my $group ( @list ) {

----------
---------