for ($i = 1;$i <= $#line;$i++)
{
    $d=$line[0];
    print "$d";
    # $d[$k++]=$line[$i],1;
    $hash{$d}{$i}=$line[$i];
    print "$hash{$d}{$i}\n";
}