my %myhash = ();
    my @data = ();

    chomp(@data = <FILE>);
    foreach (@data)    {
        %myhash = (@data => $k++);
    }