Re^5: Undef values from file open

[poj]

Maybe you have trailing blank lines .

while (my $line = <$lines>) {
  next unless $line =~ /\S/;  # <- add
  chomp $line;
  .
  .