%names; { open (name, ") { ($ref, $str) = split /\|/; $names{$refnum} = $str; } } $number =1; $structure = $names{ $number} or die "unable to open";