@fileinput_ap = <AP_MENU>;
for ($i = 0; $i <= $#fileinput_ap; $i++)  { print "$fileinput_ap[$i]" }

##</code><code>##

while( <AP_MENU> ) {
  print;
}

##</code><code>##

print while <AP_MENU>;

##</code><code>##

print <AP_MENU>;