while(<FILE>) {
chomp;     
    my @row = split(/\t/); 
    my %data; 
    @data{@fields} = @row;
    chomp @row; 
    push @records, \%data;
}
close (FILE);

my $menudir = "($ref(@records)->{ven})";##WRONG