my (@bytes) = split //,$file;