my $Temp_List = $Info->List('TABLENAME','all','none'); foreach my $Key (sort keys %$Temp_List) { my $ref = $Temp_List->{$Key}; my $Selected = ""; if ($ref->{'TABLENAME_id'} eq $Ids->{'TABLENAME_id'}) {$Selected = " selected";} my $Id_Encrypt = PACKAGE::Misc->Encrypt($ref->{'TABLENAME_id'}); my $Status = "Active"; if ($ref->{'active'} == 0) {$Status = "Inactive";} $Other_Lists->{'TABLENAME_id'} .= qq( $ref->{'TABLENAME_id'} : $Status\n); }