open(FILE, $aref) or die "Cannot open: $file\n"; $line = ;