my @virus = ();
while (my @names = $day->fetchrow_array())
{
     push @virus, [ $name[0] ];
}