# push @offsets, $_ - $first + 1;
# to
push @offesets, [ $line , $_ - $first + 1 ];
# and
# print "$_\n" for @offsets;
# to
print "$_->[0] : $_->[1]\n" for @offsets;