$array = supersplit( $separator, \*DATA); #// not needed here

##</code><code>##

@fields = @{ shift( @$array ) };

##</code><code>##

%indici{@fields} = 0..$#fields;

##</code><code>##

$item = $array[$row][$indici{$thefield}];

##</code><code>##

$item = fetchit( $row, $thefield );
sub fetchit{
  $r = shift;
  $f = shift;
  $array[$r][$indici{$f}];
}