...
tempProteinFamFileCreator( @ARGV );
...
sub tempProteinFamFileCreator {
    my  $infile   = $_[0] .'_ProFam';
# or
#   my  $infile   = shift .'_ProFam';


...