sort_by_arr_length

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Data::Dump 'pp';

my @arr = ([1 .. 6], [1,2,3] , ['a' .. 'h']);

sub by_arr_length {
    return  1 if scalar(@$a) > scalar(@$b);
    return -1 if scalar(@$a) < scalar(@$b);
    return  0;
};

my @barr = sort by_arr_length @arr;

say 'Unsorted: '.pp(\@arr);
say 'Sorted: '.pp(\@barr);
# @barr should now be ([1, 2, 3], [1 .. 6], ["a" .. "h"])