#!/usr/bin/perl

use strict;
use warnings;

my @content = (<DATA>); 
my @myArray;

for my $row (@content) {
	chomp $row;
    my @columns = split "\t", $row;
    push @myArray, \@columns;
}

my $title_row = shift @myArray;

for my $row (@myArray) {
	print join('; ', @$row), "\n";
} 

__DATA__
ProteinName	MF1	MF2	MF3
GH1	Growth factor activity	Growth hormone receptor binding	Hormone activity
POMC	G protein-coupled receptor binding	Hormone activity	Signaling receptor binding
THRAP3	ATP binding Source	Nuclear receptor transcription coactivator activity	Phosphoprotein binding