for (@file1) {
    $h{join ' ',(split / /)[0..3]} = $c++;
}