Writing a perl script to holding information for two genes
Perhaps this small test script will help demonstrate some of the principles:

#!/usr/bin/env perl                                                                                                                                              

use strict;
use warnings;
use Data::Dumper;

my @arr;

# define the current line    
my $line = "foo\tbar\tbaz\n";

# remove the trailing newline character
chomp $line; 

# put the line's elements into an anonymous array
my ($a, $b, $c) = split('\t', $line);

# insert key-value pairs into anonymous hash    
my $hash = {a =&gt; $a, b =&gt; $b, c =&gt; $c};

# add the hash table to the array
push @arr, $hash;

# print the array
print Dumper \@arr;


Run this script and see what it prints out.