# first of all, adjust array subscripts, as suggested by arunhorne;
# then set $header[0] ;
# then...
while (@header < 5) {
  $header = <LOG> ;
  $header =~ /^".*\\(.*)"$/ and push @header, $1 ;
}