#!/usr/bin/perl -w

use strict;

my @input = (1..6);

my $calls;
my $fib_calls;

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

sub fib {
    my $val = shift;
    $fib_calls++;
    $val == 0 ? return $val:
      $val == 1 ? return $val :
	return fib($val - 1) + fib($val - 2);
}

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