# ARRAY - 0: index, 1: data
my $msg = [$a, $data];   # datenstruktur anlegen
push @array, $msg;       # in liste speichern       
my $index = $msg->[0];
my $data = $msg->[1];

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