[..snip..] > > while () { > my ($base_no, $name, $description, $PSC) = split > /\|/; >
Are you absolutely sure that $PSC is getting a value here? If you "print $PSC" do you get a value? It might also help to see the data stream... -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/