BEGIN {
  my %_status_oper = (
    0 => 'NON_OPERATIONAL',
    1 => 'UNREACHABLE',
    2 => 'DISCONNECTED',
    3 => 'CONNECTING',
    4 => 'AND_SO_ON',
  );

  my %_status_admin = (
    0 => 'UP',
    1 => 'DOWN',
    2 => 'TESTING',
  );

  sub _if_status {
    my $status = shift;
    my $text   = shift;
    $text->{$status} || "UNKNOWN($status)";
  }

  sub if_oper_status  { _if_status( @_, \%_status_oper ) }
  sub if_admin_status { _if_status( @_, \%_status_admin ) }
}

printf "           Admin status:%s Oper status:%s\n", 
   if_admin_status($struct{dwAdminStatus}), 
   if_oper_status($struct{dwOperStatus});