chomp $lines[-1];