@files=<ABi1*>;
foreach $file (@files) {
    while(<>) {
          Do my function;
     }
    if (eof($file)) {
           Do my end of file cleanup
    }
}