Help for this page
1 50 2 50 ... 8 5 9 5 10 40
3 6 8 10
foreach my $line (@lines) { chomp $line; ... #something here... } }