my @new;
foreach $fn (@old) {
  $new[$fn->{FirstNum}]= $fn;
  delete $fn->{FirstNum}; 
}

##</code><code>##

my %new;
foreach $fn (keys %old) {
  $new{$fn->{FirstNum}}= $fn;
  delete $fn->{FirstNum}; 
}