in reply to Flat Database: Skip the first line

You can use the input operator in a void context to throw away a single line: 
open (ORGDB,"<$database");
<ORGDB>; # Throw away header line
@ODB=<ORGDB>;
close (ORGDB);

[download]

Impossible Robot

In Section Seekers of Perl Wisdom