#!/usr/bin/perl -w

use strict;

my @input = (1..6);

my $calls;
my $fibcalls;

my @output = sort reorder @input; # how many calls to fib() ?

sub reorder {
  $calls++;
  return fib($a) <=> fib($b);
}

sub fib {
    my $val = shift;
    $fibcalls++;
    $val == 0 ? return $val:
      $val == 1 ? return $val :
	return fib($val - 1) + fib($val - 2);
}
print "called $calls times - fib calls $fibcalls\n";