abner@avery:~/queries/preauth$ ./test.pl
Enter cpt code> 27096
Enter three character insurance company code> 00D
 Last update            Pre-auth        Pat ID  Evidence        Author
Use of uninitialized value $preauth in string eq at ./test.pl line 39, <> line 2.
Use of uninitialized value $preauth in string eq at ./test.pl line 40, <> line 2.
 2016-11-08             0003287 brought from other table        abner
Use of uninitialized value $preauth in string eq at ./test.pl line 39, <> line 2.
Use of uninitialized value $preauth in string eq at ./test.pl line 40, <> line 2.
 2016-11-08             0003287 brought from other table        mary

abner@avery:~/queries/preauth$