sub readFile{
         my $file=shift;
         open(FILE, "<$file");
         my @array=<FILE>
         chomp(@array);
         return @array;
}
sub writeFile{
        my $file=shift;
        my $arrayPointer=shift;
        open(FILE, ">$file");
        print FILE join("\n" , @{$arrayPointer});
        close FILE;
}