sub_data{ 
$sql = "SELECT comp, device, model, uniq FROM p_company, p_devices, p_model WHERE p_model.uniq = '$model' AND p_model.comp_id = p_company.comp_id AND p_model.device_id=p_devices.device_id";

my $sth = $dbh->prepare($sql);
$rv=$sth->execute;

while ($pointer = $sth->fetchrow_hashref){
    $comp  = $pointer->{'comp'};
    $device  = $pointer->{'device'}; 
    $model  = $pointer->{'model'};
    }
} # End sub
}