@outlines = <HIS_OUT>;

##</code><code>##

while (defined (my $line = <HIS_OUT>)) {
    chomp;
    print "Read: '$line'\n";
};