foreach my $rec (sort(keys(%workOrder)) 
{
        @workOrders=@{$workOrder{$rec}};
}