my @vars = qw|PATH TEXLIB|;
foreach my $var (@vars) {
   $ENV{$var} = "undefined" unless defined $ENV{$var};
}