@down=<$ifh>;
foreach my $line(@down)
{
push @down{$addy}, $_ ;
}
or
@down{$addy}=<$ifh>;