Use of awk R, perl and perl hashes