#!/usr/bin/env perl 
use strict;
use warnings;
use Text::CSV_XS 'csv';
use feature 'say';

my $aoa    = csv (in => 'gene.txt', sep => "\t");
my $header = shift @$aoa;

say join '; ', @$_ for @$aoa;