foreach my $line (@file) {
    $count++;
    print FILE, "$count. $line";
}