{
    my @keys   = map{ keys %$_ } values %channel_db_files;;
    my @values = map{ values %$_ } values %channel_db_files;;
    my @order  = sort{ $keys[ $a ] <=> $keys[ $b ] } 0 .. $#keys;;
    print "$keys[ $_ ]\t$values[ $_ ]" for @order;;
}
00001   /foo/oradata/bar/system01.dbf
00002   /foo/oradata/bar/undotbs01.dbf
00003   /foo/oradata/bar/tools01.dbf
00004   /foo/oradata/bar/foodb-data02.dbf
00005   /foo/oradata/bar/xml01.dbf
00006   /foo/oradata/bar/foodb-index11.dbf
00007   /foo/oradata/bar/undotbs02.dbf
00008   /foo/oradata/bar/foodb-data01.dbf
00009   /foo/oradata/bar/foodb-index01.dbf
00010   /foo/oradata/bar/foodb-lob01.dbf