Select Code to Download

for my $i (2..12)
{
  for my $k (5..18)
...
     # closed is called automatically here
  }
}

    my @columns = split(/\s+/, $line);    # split columns on whitespac
+e

...
    my $col2 = shift @columns;  # column 2 (throw away)
    my $col3 = shift @columns;  # column 3 (special - keep this one)
    my $result = sprintf("%8.3f", $col3); # special format for col 3