in reply to bioperl genbank into a hash

$seq is a scalar that has been assigned the value of an empty string.

Your code is attempting to access $seq as an object.

I think what you need to do is to use the object $seqio instead, so your code should read:

$hash{ $seqio->accession_number() }= $seqio->seq();
Also - it would be helpful to indicate what error you are getting. "I'm having a problem" is rather imprecise.

            "XML is like violence: if it doesn't solve your problem, use more."