#!/usr/bin/perl
# foo.pl - This is just a test
use strict;
use warnings;
use Sort::Maker;

make_sorter( name => 'sort_len', code => sub { length }, ST => 1 );

my ( $foo, $bar ) = (qw/very_long short/);

my @order = sort_len( $foo, $bar );
print @order;