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