gistfile1.pl

sub _sort {
  no strict;

  my %h; 
  for my $a_or_b ( qw/ a b / ) { 
    say "$a_or_b: \t $$a_or_b";
    given ( $$a_or_b ) { 
      when ( 'vin' )    { $h{$a_or_b} = -50 }
      when ( 'stock' )  { $h{$a_or_b} = -49 }
      when ( 'is_new' ) { $h{$a_or_b} = -48 }
      when ( 'year' )   { $h{$a_or_b} = -47 }
      when ( 'make' )   { $h{$a_or_b} = -46 }
      when ( 'model' )  { $h{$a_or_b} = -45 }
      default { $h{$a_or_b}=1 }
    }   
  }

  return $h{'a'} <=> $h{'b'};

}