while (<IMPORT>) {
        my ( $machine, $user, undef, undef, undef, undef, $locale, undef ) =
                split(/,/,$_);
        push(@{$scanned{$machine}}, $user, $locale);
}
close (IMPORT)