open my $fh, "<", "syl_list.tmp" or die $!;
while( my $line = <$fh> ){
    print $.,"\n";
}