my $results="/home/aa/results";
open(MY_HANDLE, "> $results");
  print MY_HANDLE $A,$B;
  close MY_HANDLE;