Sort by Length, then Alphabetical

len-sort.pl

#!/usr/bin/perl
use warnings;
use strict;

my @lines = <>;

@lines = sort {
  if (length($a) == length($b)) {
    $a cmp $b;
  } else {
    length($a) <=> length($b);
  }
} @lines;

print @lines;

----------------------------------------------------------------------------------------------------------------------

#!/usr/bin/perl
use warnings;
use strict;

my @lines = <>;

@lines = sort {
  length($a) == length($b) ? $a cmp $b : length($a) <=> length($b);
} @lines;

print @lines;