# snipped for brevity's sake
my $nodename = '0';
my $m_type   = '2';
my $comment  = '6'; # etc... 

for ( @MASTER ) {
   my($chk_cmd, $chk_ping);
   chomp;
   my $line = [ split("\t") ];

# If its a t3 array these lines need to be different, do it 
# now as opposed to later
   if ( $line->[$m_type] eq 'sun_t3') {
      $chk_cmd  = "check_command\tcheck-host-alive-ping\n";
      $chk_ping = "check_command\tcheck_ping\n";
   } else {
      $chk_cmd  = "check_command\tcheck-host-alive\n";
      $chk_ping = "check_command\tcheck_newping\n";
   }

   print autoconf<<EOF;

   # Host $line->[$nodename] $line->[$m_type] check host alive
   define host {
      use     generic-host
      host_name       $line->[$nodename]
      alias   $line->[$comment]
      address $IPnumber
      $chk_cmd
   }
   EOF
}