use strict;
use warnings;
use Tie::File;

my @file;

tie @file, 'Tie::File', "test.txt" or die "$!";

for (0..5) {

print "ORA is present\n" if $file[$_] =~ /ORA/;

}