# HASH
my $msg = {index => $a, data => $data}; # datenstruktur anlegen
push @array, $msg;                      # in liste speichern       
my $index = $msg->{index};
my $data = $msg->{data};

# Liste von Messages nach Index sortieren
my @sorted = sort {$a->{index} <=> $b->{index}} @array;