Select Code to Download

use strict;

my %hash = (
...
  }
    print '-' x 30,"\n";
}

sub reorder(){
  my ($item,$direction) = @_;
  if($direction eq 'up'){
...
    # maybe perl can automagically do the $tmp thing for me?
  }
}

------------------------------
       angel is now number 1
...
       faith is now number 6
       giles is now number 7
------------------------------