$logfile='/etc/qwerty_log';
open(LOG,">>logfile") or die "$logfile $!";
  print LOG @qwerty_data;
close(LOG);