use strict;
use warnings;

my $index = 0;
while ($line = <>)
{
  frobnicate($indux++, $line);
}