I'm not completely clear on your question. I don't see how you can eliminate the need to open the file(s) and read in your data unless you explicitly hard-copy the data from your file(s) in to your script, say into a __DATA__ section. You could of course, open a file, read it in to an array (each element a line from the file), close the file, and then process your data from that array, but it seems like you are asking how to read the data out of a file without having to open the file...

open my $fh1, '<', "/tmp/host/mon2a" or die "unable to open file 'file
+' for reading : $!";
my @lines = <$fh1>;
close $fh1;
[download]