my $keys_ref = $dbh->selectall_arrayref("SHOW KEYS FROM $table");                  
    
foreach my $row ( @{$keys_ref} ) {
    print "Primary key: $row->[4]"
        if $row->[2] eq 'PRIMARY';
}