sub read_file {
   my $file=shift;
   open my $fh,$file or die "$file : $!";
   my @lines=<$fh>;
   return \@lines;
}