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