my %temp_hash; my ($temp_name, $temp_id) = split ("~", $sql_result); $temp_hash{$temp_name} = $temp_id;