Select Code to Download

my $len = length;
$bins{$len} //= [ ];      # Set to blank array ref if not already set.
push @{$bins{$len}}, $a;  # Add $a to the array

for my $len (sort { $a <=> $b } keys %bins) {
    say "Length $len:";
    say for @{$bins{$_}};
}