my @a = split /\./,"$_[0]";
        $type = $filetypes{"$a[1]"};
        unless ($type) {
                $type = 'null';
        }