#!/usr/bin/perl -l

my @array_items        = ("dog", "desk" ,"cow");
my @array_items_weight = ("20" , "10", "150");

my @i = sort { $array_items[$a] cmp $array_items[$b] } 0..$#array_items;

@array_items        = @array_items[@i];
@array_items_weight = @array_items_weight[@i];

print "@array_items";          # cow desk dog
print "@array_items_weight";   # 150 10 20