while (<FINAL>) {
    our ($username, $date_modified) = split;
    $hash1{$username} = $date_modified;
}