my $line   = `/usr/bin/snmpwalk -v1 -c public $radio .1.3.6.1.4.1.5454.1.40.2.4.0`;
   my @values = split(' ', $line);
   my $score  = $values[3];
   if ...