my %order       = ();
my $screenid    = "";
my @yx          = ();

while( my @erg = $sth->fetchrow_array)
{
        $order{$erg[0]} =  [ @erg[1,2] ];
}