my @a = read_file($outputfile1)
     or die "couldn't read $outputfile1 - $!";
# ........................................^^