# ........ snip
if (my $num = /\[/.../\]/)
   {
      if (/^Desc:/)
      {
         chomp;
         my ($desc, $string) = split(/\s+/,$_,2);
         $record{$desc} = [$string];
         next;
      }
      
      my ($tag, @values) = split; 
      @{$record{$tag}} = @values;
#........ snip
OR....perhaps...
      if (/^Desc:/)
      {
         chomp;
         my ($desc, $string) = split(/\s+/,$_,2);
         $record{$desc} = [$string]; # same as @{$record{$desc}} = ($string);
      }
      else
      {
         my ($tag, @values) = split; 
         @{$record{$tag}} = @values;
#....snip...