• ALWAYS read file using:

open my ($fh), '<', $read_file or die ...;

• Always read argument list using shift:
• SDBM_File does not scale, try using NDBM or GDBM