my @array = map { $result{$_} } sort { $a<=>$b } keys %result;

##</code><code>##

$VAR1 = [
          [
            '172193',
            '19601',
            '14835',
            '16718'
          ],
          [
            '172193',
            '19601',
            '14835',
            '16718'
          ],
          [
            '172193',
            '19601',
            '14835',
            '16718'
          ],
          [
            '172193',
            '19601',
            '14835',
            '16718'
          ], continues....