Select Code to Download

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

$row->{'Column_name'} if $row->{'Key_name'} eq 'PRIMARY'