sub reorder {
  my ($item,$direction) = @_;
  if($direction eq 'up'){
    @hash{$item,$item-1} = @hash{$item-1,$item};
  }
}