my @UACS;
  open(POLICY, "getpol -t UACS |");
  while ($pol = <POLICY>)
   {
    chomp($pol);
    ($type, $number, $name) = split (/\|/, $pol, -1);
    push(@UACS,$name);
#    print "$name\n";
   }

##</code><code>##

  for my $row (@UACS)
   {
    format STDOUT = @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<
    shift(@row)
.
    write;
   }