Select Code to Download

use strict;                                         # use this always.
+ no excuses.
use warnings;                                       # same with this.
...
} 
print "out side @actual\n";                         # it works, but gi
+ves an error as $actual[0] is undefined
close(FILE);