#!/usr/local/bin/perl -w
local $ENV{"PATH"} = "/usr/openv/netbackup/bin/admincmd" ;
open REPORT, "bpclclients class_name -allunique -noheader |" or die "Can't open bpclclients : $!" ;
my @rpts = <REPORT>;
print @rpts ;
close REPORT;

##</code><code>##

Novell NetWare novellqa
Solaris Solaris8 nurse-b
PC Windows2000 pub01pi

Here comes the questions:
1. How do I eliminate all rows with "PC" in col 1 from the array.
2. How do I sort the array by col 1
3. How do I collapse the array into a list ie:
   delete col 1 and col 2

Thanking everyone in advance.