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