Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl    

...
                      (values(%$a))[0]->{hyundai} } @$original ];

use Data::Printer; p $sorted;

Select or download this
```
\ [
    [0] {
...
        }
    }
]
```