Select Code to Download

my @output = sort @input; # default sort using eq to compare values
my @output = sort {$a <=> $b} @input; # numeric sort
my @output = sort some_func @input; # custom algorithm

#!/usr/bin/perl -w

...
    return fib($val - 1) + fib($val - 2);
}
print "called $calls times - fib calls $fibcalls\n";

cd /home/le6303/src/perl/
/usr/bin/perl -w "/home/le6303/src/perl/lister.pl" 
called 9 times - fib calls 150

#!/usr/bin/perl -w

use strict;
...

use Data::Dumper;
print Dumper \@output;;

cd /home/le6303/src/perl/
/usr/bin/perl -w "/home/le6303/src/perl/subber.pl" 
$VAR1 = [
...
          10,
          12
        ];

my @output = sort {$a <=> $b} map {fib($_)} @input;

#!/usr/bin/perl -w

use strict;
...
print "called $calls times - fib $fib_calls\n";
use Data::Dumper;
print Dumper(\@output);

cd /home/le6303/src/perl/
/usr/bin/perl -w "/home/le6303/src/perl/lister.pl" 
called 9 times - fib 58
...
          8
        ];

my @output =  map {[$_, fib($_)]} @input;

cd /home/le6303/src/perl/
/usr/bin/perl -w "/home/le6303/src/perl/lister.pl" 
$VAR1 = [
...
            8
          ]
        ];

my @output = map {$_->[0]}              # extract just the original
                                        # value from the tuple
...
             map {[$_, some_func($_)]}  # create (value, computed)
                                        # tuples
             @input;