while(<FILE>){
   print "$_[0] this works\n";
}