Perl Cheat Sheet Inhale the contents of a file: open (TABFILE,"$filename") || die "Can't Open $filename: $!\n"; @LINES=<TABFILE>; chomp @LINES; close(TABFILE); Open for add open (TABFILE,">>$filename") || die "Can't Open $filename: $!\n"; Open for write entire file (destroys existing file) open (TABFILE,">$filename") || die "Can't Open $filename: $!\n"; Iterate over a hash array while (($hashkey,$