my %hash = (); my @array = (); my $no = 0;
while (<$Fields>)
{   my $var = $_; chomp($var);
    my ( $key, $index ) = split(/\t/,$var);
    $hash{ $key } = $index;
    $array[$no] = $key;
    $no++;
}