my $bandName = '';
                    my $rrh_sth=$dbh->prepare("SELECT serial....");
                    $rrh_sth->execute;
                    my $int_hash=$rrh_sth->fetchall_hashref('serial');
                    delete $_->{serial} for values %$int_hash;

                    foreach my $s (keys %$int_hash) {
                            if ($values[6] eq $s) {
                                    #$bandName =  @{%$int_hash}{$s};
                                    $bandName = $int_hash ->{$s};
                                    my $ulink=getFreq($bandName,"u");
                                    my $dlink=getFreq($bandName,"d");
                                    my $status="active";
                                    print Dumper ($bandName,$values[0],$values[8],$values[7],$values[6],
                                            $values[11],$values[10],$values[3],$values[4],$values[5],$dlink,$ulink);
                    }

$VAR1 = {
      'rrhName' => 'MCD59'
    };
$VAR2 = 'MCO57';
$VAR3 = 'R-S-S:1-0-1';
$VAR4 = 'scb';
$VAR5 = '12NT46000050';
$VAR6 = undef;
$VAR7 = '109786038';
$VAR8 = 'MCO: 976 2x5W AC';
$VAR9 = 'enabled';
$VAR10 = '1';
$VAR11 = '1400';
$VAR12 = '3000';