my @positions = (0);
open FILE, '<', 'file' or die $!;
while(<FILE>) {
    push @positions, tell FILE;
}