sub typefiles { 
    ($tfile, $filetype ) = @_ ;
    # etc...
}