sub smart_sort {
   my $obj=shift;
   my $array=UNIVERSAL::isa($obj,'HASH') ? [keys %$obj] : $obj;
   return [ $array->[0]=~/\D/ ? sort @$array : sort {$a <=> $b} @$array ];
}