my @data;
while(<IN>) {
    chomp;
    my %row;
    @row{@column} = split /\t/;
    push @data, \%row;
}