use strict;
use warnings;
use Data::Dumper;

my $form; $form->{'all_shipto'} = [
  {
    'country' => { 'label' => 'Namn', 'i' => 3 }, 
    'name' => { 'label' => 'Klinik', 'i' => 11 }, 
    'contact' => { 'label' => 'Remitterad av', 'i' => 9 },
    'phone' => { 'label' => 'Remiss utgångsdatum', 'i' => 10 }, 
    'zipcode' => { 'label' => 'Postnr', 'i' => 6 }, 
    'state' => { 'label' => 'Frikort, utgångsdatum', 'i' => 8 },
    'address2' => { 'label' => '', 'i' => 5 }, 
    'email' => { 'label' => 'Klinik adress', 'i' => 12 }, 
    'city' => { 'label' => 'Stad', 'i' => 7 }, 
    'fax' => { 'label' => 'A', 'i' => 2 }, 
    'address1' => { 'label' => 'Adress', 'i' => 4 } 
  },
  {
    'country' => { 'label' => 'Namn', 'i' => 3 }, 
    'name' => { 'label' => 'Klinik', 'i' => 11 }, 
    'contact' => { 'label' => 'Remitterad av', 'i' => 9 },
    'phone' => { 'label' => 'Remiss utgångsdatum', 'i' => 10 }, 
    'zipcode' => { 'label' => 'Postnr', 'i' => 6 }, 
    'state' => { 'label' => 'Frikort, utgångsdatum', 'i' => 8 },
    'address2' => { 'label' => '', 'i' => 5 }, 
    'email' => { 'label' => 'Klinik adress', 'i' => 12 }, 
    'city' => { 'label' => 'Stad', 'i' => 7 }, 
    'fax' => { 'label' => 'B', 'i' => 2 }, 
    'address1' => { 'label' => 'Adress', 'i' => 4 } 
  }
];

for (sort {
    $a->{'fax'} cmp $b->{'fax'}
} @{$form->{'all_shipto'}}) {
    print Dumper($_);
}