my  $name =  $name."_$i";        # input file name

    open ( INF, '<', $name )
        or croak "$0 : failed to open output file $name : $!\n";

    while(<INF>) {

     # Do something
     }
    

    close ( INF );         # close input file