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

##</code><code>##

open my $fh1, '<', "/tmp/host/mon2a" or die "unable to open file 'file' for reading : $!";
while (<$fh1>)

##</code><code>##

for (@fromfile)