Printing all elements of an Array except the first?

[Ned Cunningham]

Snip


open CUST, $cust or die "Cant open it :$!";
open WRFILE, ">$wrfile";

while (defined ($line = <CUST>)) {


chomp $line;
@data = split(/\|/,$line);
$newnum=$newnum+1;
printf WRFILE ("0%9d",$newnum);

print WRFILE ";", @data, ";";
print WRFILE "\n";
}


close CUST; 
close WRFILE;

End


I want to write to a file all of the array(@data), except the first
field????

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]