perl -e'
   use strict;
   use warnings;

   use Data::Dumper qw( Dumper );

   sub _DBsort4create {
      my $obj = shift;
      print(Dumper($obj));
      0
  }

   my $csvQ = { x => 123, y => 456 };
   for my $csvq ( sort _DBsort4create keys %$csvQ ) {
   }
'
$VAR1 = undef;